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

Программа может выглядеть так:

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.