Последовательность чисел. Найти наибольшее среди отрицательных

var
  n,i: byte;
  a,x: integer;
  f: boolean;
begin
  write('Сколько чисел в последовательности? ');
  readln(n);
  f:=false;
  for i:=1 to n do
  begin
    write('Введите ',i,'-й элемент последовательности: ');
    readln(a);
    if (a<0)and(f=false) then
    begin
      f:=true; x:=a;
    end else 
    if (a<0)and(a>x) then x:=a;
  end;
  writeln('Максимальное отрицательное = ',x);
  readln;
end.

const
  csize=100;
 
type
  tarray=array [1..csize] of extended;
 
var
  nm,nl,max:extended;
  a:tarray;
  i,j,n:byte;
 
begin
  randomize;
  writeln('введите число ');
  readln(n);
  i:=1;j:=1;
  repeat
    nm:=random(60)-30;
    nl:=random(60)-30;
    if nl<>0 then begin
      a[i]:=nm/nl;
      if (a[i]<0) and (j=1) then begin
        max:=a[i];
        inc(j);
      end;
      inc(i);
    end;
  until i>n;
  for i:=1 to n do
    if a[i]<0 then
      if a[i]>max then
        max:=a[i];
  for i:=1 to n do
    write(a[i]:2:2,' ');
  writeln;
  writeln('максимальное среди отрицательных ',max:2:2);
  readln;
end.