Дан массив ТОЛЬКО из отрицательных частей. Как отыскать наибольший элемент этого

program max_el;
var a: array [1..10] of integer;
max:integer;

begin
randomize;
max:=-100;

for i:integer:= 1 to 10 do
begin
a[i]:=(random(20)+1)*(-1);
write(a[i]:4);
if a[i]gt; max then max:=a[i];
end;

writeln();
writeln(Наибольший элемент = , max)
end.

Если диапазон отрицательных чисел не определен, тогда можно в качестве перед поиском наибольшего элемента задать max := a[1].

program max_el;
var a: array [1..10] of integer;
max:integer;

begin
randomize;

for i:integer:= 1 to 10 do
begin
a[i]:=(random(1000)+1)*(-1);
write(a[i]:5);
end;

max:=a[1];

for i:integer:=1 to 10 do if a[i]gt; max then max:=a[i];

writeln();
writeln(Наибольший элемент = , max)
end.