Напишите программу которая считывает 5 целых чисел определяет и печатает величайшее

const
n = 5;

var
a: array [1..n] of integer;
i, amax, amin: integer;

begin
randomize;
for i := 1 to n do
begin
a[i] := random (100) - 50;
write ( a[i], );
end;
writeln;
amin := a[1];
for i := 2 to n do
if a[i] lt; amin then amin := a[i];
amax := amin;
for i := 2 to n do
if a[i] gt; amax then amax := a[i];
writeln ( Наибольший элемент равен: , amax, . );
writeln ( Малый элемент равен: , amin, . );
end.