Код
Program files;
Uses Crt;
Type massive=array[1..5,1..5] of Real;
Var a,b:Massive;
p:Real;
{====================}
Procedure OARF(Name:string; Var a:massive); {OARF-Open And Read File}
Var fl:Text;
i,j:Integer;
Begin
Assign(fl,name);
Reset(fl);
For i:=1 to 5 do
For j:=1 to 5 do
Read(fl,a[i,j]);
Close(fl);
End;
{====================}
Procedure Check(a,b:Massive; Var p:Real);
Var i,j,k,l:Integer;
Begin
For i:=1 to 5 do
For j:=1 to 5 do
For k:=1 to 5 do
For l:=1 to 5 do
if a[i,j]=b[k,l] then p:=a[i,j];
End;
{====================}
Begin
ClrScr;
OARF('f1.txt',a); {' f1.txt ' -первый файл с массивом}
OARF('f2.txt',b); {' f2.txt ' -второй файл с массивом}
Check(a,b,p);
Writeln('Chislo ',p:0:2);
ReadKey;
End.