удаление одинаковых строк из 2-х матриц

var
a,b:array[1..100,1..100]of integer;
i,j,k,n,c,f,s:integer;
begin
 writeln('vvedite razmer');
 readln(n);
  writeln('vvod matricy 1');
  for i:=1 to n do
  for j:=1 to n do
   read(a[i,j]);
   writeln('vvod matricy 2');
  for i:=1 to n do
  for j:=1 to n do
   read(b[i,j]);
 writeln('matrica1');
 for i:=1 to n do
  begin
 for j:=1 to n do
 write(a[i,j]:3);
 writeln;
  end;
 writeln('matrica2');
 for i:=1 to n do
  begin
 for j:=1 to n do
  write(b[i,j]:3);
  writeln;
  end;
 for i:=n downto 1 do
  for k:=n downto 1 do
   begin
   f:=0;
   for j:=1 to n do
    if a[i,j]<>b[k,j] then f:=1;
     if f=0 then
      begin
      inc(c);
       for s:=i to n do
       for j:=1 to n do
       a[s,j]:=a[s+1,j];
       for j:=1 to n do
       for s:=k to n do
       b[s,j]:=b[s+1,j];
    end;
    end;
 writeln('novaya matrica1');
 for i:=1 to n-c do
  begin
 for j:=1 to n do
 write(a[i,j]:3);
 writeln;
  end;
 writeln('novaya matrica2');
 for i:=1 to n-c do
  begin
 for j:=1 to n do
  write(b[i,j]:3);
  writeln;
  end;
readln;
end.