Напишите код на Паскаль по этому заданию

program FindMaxInFirstK;

var

A: array[1..100] of integer; // массив на максимум 100 элементов

N, k, i, maxIndex, maxValue: integer;

begin

writeln('Сколько элементов в массиве?');

readln(N);

writeln('Введи элементы массива:');

for i := 1 to N do

readln(A[i]);

writeln('Введи k (k < ', N, '):');

readln(k);

maxValue := A[1];

maxIndex := 1;

for i := 2 to k do

if A[i] > maxValue then

begin

maxValue := A[i];

maxIndex := i;

end;

writeln('Максимальный элемент среди первых ', k, ' - это элемент под номером ', maxIndex);

writeln('Его значение: ', maxValue);

readln;

end.