Определить номера тех строк целочисленной матрицы А[n,k], которые совпадают с массивом D [k]

Uses crt;
const len = 100;
var
 A: array [ 1 .. len , 1 .. len ] of integer;
 D, res: array [ 1 .. len ] of integer;
 i, j, n, k, c, index: integer;
begin
clrscr;
repeat
 write('Enter n:');readln(n);
 write('Enter k:');readln(k);
until ( n in [ 1 .. 100 ] ) and ( k in [ 1 .. 100 ] );
 
writeln('Enter matrix:');
for i:=1 to n do begin
 for j:=1 to k do begin
     write('A[',i,',',j,']:=');readln(A[i,j]);
 end;
end;
 
writeln('Enter Array:');
for i:=1 to k do begin
    Write('D[',i,']:=');readln(D[i]);
end;
 
clrscr;
 
 c:=0;
for i:=1 to n do begin
index:=1;
 for j:=1 to k do
   If ( A[i,j] = D[j] ) and ( j = k ) then begin
      index:=i;
      inc(c);
      Res[c]:=index;
   end;
end;
 
if c <> 0 then begin
 writeln('Rows that matches with array:');
 for i:=1 to c do begin
     write(Res[i]:3);
 end;
end else
if c = 0 then writeln('There is no such rows');
 
 
readln;
end.

Uses Crt;
Var A:array[1..20,1..20] of integer;
    D:array[1..20] of integer;
    i,j,n,k,kol:byte;
    f:boolean;
Begin
    ClrScr;
    write('N = ');readln(n);
    write('K = ');readln(k);
    For i:=1 to n do
     For j:=1 to k do
     Begin
       write('A[',i,',',j,'] = ');
       readln(A[i,j]);
     End;
    writeln('Матрица A');
    For i:=1 to n do
    Begin
      For j:=1 to k do
       write(A[i,j]:4);
      writeln;
    End;
    For i:=1 to k do
    Begin
      write('D[',i,'] = ');
      readln(D[i]);
    End;
    writeln('Массив D');
    For i:=1 to k do
     write(D[i]:4);
    writeln;
    For i:=1 to n do
    Begin
      f:=true;
      For j:=1 to k do
       if A[i,j]<>D[j] then f:=false;
      if f then inc(kol);
    End;
    if kol>0 then writeln('Таких строк = ',kol)
     else writeln('Нету таких строк');
    readln;
End.