Помогите написать программку в паскале. Ввести N чисел. Найти 1-ое наибольшее

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ReadArrReal('Вводите:', ReadInteger('Количество чисел?'));

 var imax := a.IndexMax;

 Writeln('1-ое максимальное число ', a[imax],

     ' имеет номер ', imax + 1)

end.

Пример

Количество чисел? 5

Вводите: 14 2.17 15.2 8 15.2

1-ое наибольшее число 15.2 имеет номер 3

var n,i,m,k,a: integer;

begin

write ('Введите количество чисел: ');

readln (n);

write ('Введите число: ');

readln (a);

m:=a;

k:=1;

for i:=2 to n do

begin

write ('Введите число: ');

readln (a);

if agt;m then

begin

m:=a;

k:=i

end

end;

writeln ('1-ый наибольший элемент ',m,' и его номер ',k)

end.