какие элементы встречаются в каждой строке матрицы

uses crt;
type matr=array[1..20,1..20]of integer;
procedure ElStr(a:matr;n,m:byte);
var i,j,k,l,f,s,r:byte;
begin
{Поиск элементов, содержащихся во всех строчках}
r:=0;
for i:=1 to m do
for j:=1 to n do
 begin
  s:=0;
  for k:=1 to m do
   begin
    f:=0;
    for l:=1 to n do
    if a[i,j]=a[k,l]then f:=1;
    s:=s+f;
   end;
  if s=k then
   begin
    writeln('a[',i,',',j,']=',a[i,j]);
    r:=1;
   end;
 end;
if r=0 then writeln('Нет элементов');
end;
var a:matr;
    r,s,m,n,i,j,f,k,l,Z:integer;
begin
clrscr;
write('Кол-во строк и столбцов:');
read(m,n);
{Ввод матрицы}
for i:= 1 to m do          {наружный цикл по строкам}
 begin
  write('Элементы строки',i,':');
  for j:=1 to n do read(A[i,j]); {внутренний цикл по столбцам}
  readln;
 end;
for i:=1 to m do {вывод матрицы таблицей}
 begin
  for j:=1 to n do
  write(a[i,j]:5);
  writeln;
 end;
ElStr(a,n,m);
readln;
end.

uses crt;
type matr=array[1..20,1..40]of integer;
var a:^matr;
    r,s,m,n,i,j,f,k,l,Z:integer;
 
Procedure Input;
Var
 i,j:integer;
 f:text;
begin
 assign(f,'matr.txt'); {vvod iz faila}
 reset(f);
 read(f,n);
 read(f,m);
 new(a);
 For i:=1 to n do
  For j:=1 to m do
   read(f,a^[i,j]);
 close(f);
end;
 
procedure ElStr;
var i,j,k,l,f,s,r:byte;
begin
{Поиск элементов, содержащихся во всех строчках}
r:=0;
for i:=1 to m do
for j:=1 to n do
 begin
  s:=0;
  for k:=1 to m do
   begin
    f:=0;
    for l:=1 to n do
    if a^[i,j]=a^[k,l]then f:=1;
    s:=s+f;
   end;
  if s=k then
   begin
    writeln('a[',i,',',j,']=',a^[i,j]);
    r:=1;
   end;
 end;
if r=0 then writeln('Нет элементов');
end;
 
 
begin
Input;
ElStr;
readln;
end.

uses crt;
type matr=array[1..20,1..40]of integer;
var a:^matr;
    r,s,m,n,i,j,f,k,l,Z:integer;
    t:text;
Procedure Input(var t:text);{файл нужно в программу прочитать, а не в воздух, да и переменная f занята}
Var i,j:integer;
begin
 writeln('Исходная матрица:');
 assign(t,'matr.txt'); {vvod iz faila}
 reset(t);
 read(t,n);
 read(t,m);
 new(a);
 For i:=1 to n do
  begin
   For j:=1 to m do
    begin
     read(t,a^[i,j]);
     write(a^[i,j]:5);
    end;
   writeln;
  end;
 close(t);
end;
 
procedure ElStr;
var i,j,k,l,f,s,r:byte;
begin
{Поиск элементов, содержащихся во всех строчках}
writeln('Элементы, которые встречаются во всех строках матрицы:');
r:=0;
for i:=1 to n do
for j:=1 to m do
 begin
  s:=0;
  for k:=1 to n do
   begin
    f:=0;
    for l:=1 to m do
    if a^[i,j]=a^[k,l]then f:=1;
    s:=s+f;
   end;
  if s=k then
   begin
    writeln('a[',i,',',j,']=',a^[i,j]);
    r:=1;
   end;
 end;
if r=0 then writeln('Нет элементов');
end;
 
 
begin
Input(t);
ElStr;
readln;
end.