отыскать наибольший элемент массива n=7 pascal

program n_1;

const n=7;

var i, m: integer; a:array [1..n] of real;

begin

   m:=1;

   for i:=1 to n do begin

       read(a[i]);

       if a[i]gt;a[m] then m:=i;

   end;

   writeln('Наибольший элемент массива из 7 чисел находится под номером ', m, ' и равен ', a[m]:0:10);

end.