Напишите алгоритм нахождения максимального числа в массиве сгенерированного из случайных чисел

Program dataArray;const N=10;type x=array [1..N] of integer;var a:x;  i:integer;  max:integer;  imax:integer;begin  randomize;  for i:=1 to N do    begin      a[i]:= -50+random(101);      write (A[i]:5)    end;  writeln;  imax:=1;  max:=A[1];  for i:=2 to N do    if maxlt;a[i] then      begin        max:=a[i];        imax:=i      end;  writeln (Максимальный элемент в массиве(матрице) =,max:5);  writeln (Его индекс в матрице =,imax:5);end.