проверить задачу на тему Series

[joker01]

Series31. Даны целые числа K, N, а также K наборов целых чисел по N эле-ментов в каждом наборе. Найти количество наборов, содержащих число 2.
Если таких наборов нет, то вывести 0.

Program Series31;
var  k,n,i,j,x,y,t:integer;
begin
     writeln('vvedite k,n');
     readln(k,n);
     x:=0;
     y:=n;
     t:=0;
     for i:=1 to k do begin
                           for j:=1 to n do begin
                                                  readln(y);
                                                  if y=2 then x:=1;
                                            end;
                           t:=t+x;
                           x:=0;
                      end;
     If t>0 then writeln('kol-vo = ',t) else writeln('0');
end.

[Hacker19_90]

count := 0;
Writeln ('Vvedite ', k, 'naborov po ', n, '4isel);
for i := 1 to k do
begin
    isFound := false;
    for j := 1 to n do
    begin
        Read (y);
        if isFound = false then
            if y = 2 then 
            begin
                Inc(count);
                isFound := true;
            end;
    end;
end;
Writeln (count);

[Mad_Cat]

series_31 на номер 642616444