Переделать программу без использования логической переменной

var
   a: array[1..100,1..100] of integer;
   b: array[1..100] of integer;
   i,j,n,m,n1,x: byte;
   sum,sr,o: integer;
   f: boolean;
begin
   randomize;
   write('размерность: ');
   readln(n,m);
   for i:=1 to n do
      begin
         for j:=1 to m do
            begin
               a[i,j]:=random(61)-30;
               write(a[i,j]:4);
            end;
         writeln;
      end;
   writeln;
   for i:=1 to n do
   for j:=1 to m do
      if a[i,j]<0 then
         begin
            inc(n1);
            b[n1]:=sqr(a[i,j]);
            sum:=sum+b[n1];
         end;
   sr:=sum div n1;
   for j:=1 to m do
      begin
         for i:=1 to n do
            begin
               inc(x);
               if odd(a[i,j]) then
                  begin
                     o:=a[i,j];
                     f:=true;
                     break;
                  end;
            end;
         if f then break;
      end;
   write('новый массив: ');
   for i:=1 to n1 do write(b[i],' ');
   writeln;
   writeln('сумма: ',sum);
   writeln('среднее значение: ',sr);
   writeln('первый нечетный элемент: ',o,' его номер: ',x);
   readln
end.