ПАСКАЛЬ! отыскать величину величайшего из отрицательных чисел последовательности из 100 целых

Представим, что последовательность же задана, то есть вводить ее мы не будем. Последовательность представляет собой массив чисел а.
n:=1;  k:=0;
for i:=1 to 100 do if (a[i]lt;0) then k:=k+1; проверяем наличие отрицательных
if (k=0) then writeln("Отрицательных нет.") else begin
for i:=1 to 100 do if (a[i]lt;0) then n:=a[i]; обретаем желая бы один отрицательный
for i:=1 to 100 do if ((a[i]lt;0) AND (a[i]gt;n) then n:=a[i]; обретаем наибольший отрицательный
writeln("Наибольшее из отрицательных чисел данной последовательности - ",n);
end;
end.