Найти количество строк, в которых все элементы, стоящие на четных местах, больше среднего арифметического элементов, стоящих на нечетных местах.

var
   a: array[1..100,1..100] of integer;
   i,j,n,k,sr,d: integer;
   f: boolean;
begin
   randomize;
   for i:=1 to n do
      begin
         for j:=1 to n do
            begin
               a[i,j]:=round(random(80)+10);
               write(a[i,j],' ');
            end;
         writeln;
      end;
   writeln;
   k:=0;
   for i:=1 to n do
      begin
         sr:=0;
         d:=0;
         f:=true;
         for j:=1 to n do
            if odd(j)=true then 
               begin
                  inc(d);
                  sr:=sr+a[i,j];
               end;
         sr:=sr div d;
         for j:=1 to n do
            if odd(j)=false then
               if (a[i,j]>sr) and (f=true) then f:=true else f:=false;
         if f=true then inc(k);
      end;
   writeln('количество строк: ',k);
   readln;
end.