вывести на экран максимальный элемент массива, массив заполняется с клавиатуры.

Программа может выглядеть так:uses crt;const m=1000;type Mas=array [1..m] of integer;Var A: Mas;  i, Max, n: integer;Begin ClrScr; Write('n = '); ReadLn(n); for i:=1 to n do     begin     Write('A[',i, ']=');     ReadLn(A[i]);     end;  Max:=A[1];  for i:=2 to n do      if A[i]>Max then Max:=A[i];  Writeln;  WriteLn ('Max = ', Max); ReadLn;end.