Написать программу выбора наибольшего из четырёх введённых с клавиатуры чисел — Pascal(Паскаль)

uses crt;
const n=4;
var a: array[1..n] of ^integer; i: byte; max: integer;
begin
randomize;
clrscr;
write('исходные числа: ');
for i:=1 to n do
new(a[i]);
for i:=1 to n do
begin
a[i]^:=random(19)-9;
write(a[i]^:3);
end;
writeln;
max:=a[1]^;
for i:=2 to n do
if a[i]^>max then 
max:=a[i]^;
for i:=1 to n do
dispose(a[i]);
writeln('максимальный элемент = ',max);
end.