Viết chương trình liệt kê các giá trị lớn nhất trong mảng 1 chiều ?

uses crt;
var a:array[1..1000]of longint;
    n,i,maxValue:longint;
begin
clrscr;
    readln(n);
    for i:=1 to n do read(a[i]);
    maxValue:=a[1];
    for i:=2 to n do
        if a[i]>maxValue then maxValue:=a[i];
    write(maxValue); 
readln;
readln;
end.

Program Kookie;

uses crt;

type  ArrInt = array [ 1 .. N] of integer;

var

A: ArrInt;

N, i, Max: integer;

begin

clsrcr;

write( 'A[', i ,'] = ');

readln(A[i]);

Max := 0;

for i :=1 to N do

A[i] :=Max;

if A[i] >A[i+1] then A[i+1] := Max;

writeln( ; gia tri lon nhat la : ,' Max);

readln

end.