Program htr;
uses crt;
const nc=100;mc=100;
type cord=record
     x:integer;
     y:integer;
     end;
var a:array[1..nc,1..mc]of cord;
    i,j:integer;
    k,n,m,x,y:integer;
    f:text;

function find(x,y:intger):boolean;
var x1,y1:integer;
begin
x1:=a[x,m-y+1].x;
y1:=a[x,m-y+1].y;
if a[x1,m-y1+1].x=x and a[x1,m-y1+1].y=y then inc(k) else

end;

begin
clrscr;
assign(f,'tsk4.txt');
reset(f);
read(f,n);
readln(f,m);
for i:=1 to n do
begin
for j:=1 to m do
begin
read(f,x);
read(f,y);
a[i,m-j+1].x:=x;
a[i,m-j+1].y:=y;
end;
readln(f);
end;
for i:=1 to n do
for j:=m downto 1 do

close(f);
repeat until keypressed;
end.