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

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 max<a[i] then      begin        max:=a[i];        imax:=i      end;  writeln ('Максимальный элемент в массиве(матрице) =',max:5);  writeln ('Его индекс в матрице =',imax:5);end.