Безотлагательно PascalABC!!!!!!!!! Дан одномерный массив A, найти наивеличайший отрицательный элемент

const N = 15;

var

arr: array[1..N] of integer;

i: byte;

index: byte;

begin

randomize;

for i:=1 to N do begin

arr[i] := random(100) - 50;

write(arr[i],' ');

end;

writeln;

index := 0;

for i:=1 to N do begin

if (arr[i] lt; 0) and (index = 0) then

index := i

else

if (arr[i] lt; 0) and (arr[i] gt; arr[index]) then

index := i;

end;

if index lt;gt; 0 then

writeln(index,': ',arr[index]);

end.