Код
Procedure Look(fn1:String;fn:String;Var n1,n2:Integer;Var x1,y1,x2,y2:Integer);
Var
f1,f2:Text;
a,b:Integer;
x,y:Integer;
Found:Boolean;
Begin
Found:=False;
Assign(f1,fn1);
Reset(f1);
Assign(f2,fn2);
Reset(f2);
For x:=1 To 5 Do
For y:=1 To 5 Do
Begin
ReadLn(f1,a);
ReadLn(f2,B);
If a=b Then
If Not Found Then
Begin
n1:=a;
x1:=x;
y1:=y;
Found:=True
End
Else
Begin
n2:=a;
x2:=x;
y2:=y;
Break
End
End;
Close(f1);
Close(f2)
End;
Var
n1,n2,x1,x2,y1,y2:Integer;
f:Text;
Begin
Look('f1','f2',n1,n2,x1,y1,x2,y2);
Assign(f,'f3');
ReWrite(f);
WriteLn(f,x1,'*',y1,' = ',n1);
WriteLn(f,x2,'*',y2,' = ',n2);
Close(f)
End.
Ну или что-то типа этого...