{ Найти максимальный элемент таблицы а[1..10] }

uses crt;
var a       : array [1..10] of longint;
    max,i,n : longint;
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];
  write('max = ',max);
  readln;
end.