Дана целочисленная матрица размера M*N. Найти количество ее строк, все элементы которых различны — Pascal(Паскаль)

uses crt;
var
a:array[1..100,1..100] of integer;
i,j,n,m,k,l:integer;
f:boolean;
begin
clrscr;
write('Kolvo strok matrici=');readln(m);
write('Kolvo stolbcov matrici=');readln(n);
randomize;
for i:=1 to m do
 for j:=1 to n do
  a[i,j]:=random(101)-50;
writeln('Matrica');
for i:=1 to m do
 begin
  for j:=1 to n do
   write(a[i,j]:5);
  writeln;
 end;
k:=0;
for i:=1 to m do
 begin
  f:=true;
   for j:=1 to n do
     for l:=j+1 to n do
       if a[i,j]=a[i,l] then 
        begin
         f:=false;
         break;
        end;
  if f then k:=k+1;
 end;
writeln('Kolvo strok vse elementi kotorih razlichni=',k);
readln
end.