Найти количество наборов, элементы которых возрастают

{Дано целое число K, а также K наборов ненулевых целых чисел.
Каждый набор содержит не менее двух элементов, признаком его завершения
является число 0. Найти количество наборов, элементы которых возрастают.}
Program Zadanie_2;
const n=100;
var
  K:integer;
  sum,sum_all:integer;
  A:integer;
  i:integer;
  Buff:integer;
  bool:boolean;
Begin
  write('Введите K (не менее двух элементов): '); readln(K);
  sum_all:=0;
  for i:=1 to K do
begin
  sum:=0;
  Buff:=0;
  bool:=true;
repeat
  A:=random(9);
  sum:=sum+1;
if(A<>0)then
if(Buff>A)then bool:=false
else Buff:=A;
until (a = 0)and(sum>2);
if(bool)then
begin
  sum_all:=sum_all+1;
end;
end;
  writeln('Всего наборов возрастающих: ',sum_all);
End.

Program Zadanie_2;
const n=100;
var
  K:integer;
  sum,sum_all:integer;
  A:integer;
  i:integer;
  Buff:integer;
  bool:boolean;
  f_in,f_out:text;
Begin
  assign(f_in,'Zadanie_2.in');
  reset(f_in);
  read(f_in);
  assign(f_out,'Zadanie_2.out');
  rewrite(f_out);
  sum_all:=0;
  for i:=1 to K do
begin
  sum:=0;
  Buff:=0;
  bool:=true;
if(A<>0)then
if(Buff>A)then bool:=false
else Buff:=A;
if(bool)then
begin
  sum_all:=sum_all+1;
end;
end;
writeln(f_out,k);
  close(f_in);
  close(f_out);
End.

Program Zadanie_2;
var
  K:integer;
  sum,sum_all:integer;
  A:integer;
  i:integer;
  Buff:integer;
  bool:boolean;
  f_in,f_out:text;
Begin
  assign(f_in,'Zadanie_2.in');
  reset(f_in);
  read(f_in);
  sum_all:=0;
  readln(f_in,K);
  for i:=1 to K do
  begin
    sum:=0;
    Buff:=0;
    bool:=true;
    repeat
      readln(f_in,A);
      sum:=sum+1;
      if(A<>0)then
        if(Buff>A)then bool:=false
        else Buff:=A;
    until (a = 0)and(sum>2);
    if(bool)then
    begin
      sum_all:=sum_all+1;
    end;
  end;
  close(f_in);
  assign(f_out,'Zadanie_2.out');
  rewrite(f_out);
  writeln(f_out,sum_all);
  close(f_out);
End.

{Дано целое число K, а также K наборов ненулевых целых чисел.
Каждый набор содержит не менее двух элементов, признаком его завершения
является число 0. Найти количество наборов, элементы которых возрастают.}
Program Zzz;
var
  k,sum,a,b,i:integer;
  bool:boolean;
  f_in,f_out:text;
Begin
  assign(f_in,'Zadanie_2.in');
  reset(f_in);
  read(f_in,k);
  sum:=0;
  for i:=1 to K do
   begin
    read(f_in,a);
    bool:=true;
    while a<>0 do
     begin
      read(f_in,b);
      if (b<>0)and(b<a) then bool:=false;
      a:=b;
     end;
    if bool then inc(sum);
   end;
  close(f_in);
  assign(f_out,'Zadanie_2.out');
  rewrite(f_out);
  writeln(f_out,sum);
  close(f_out);
End.