Функции придать значение True, если в матрице есть 2 одинаковые элемента

const n=3;m=4;
type mas=array[1..n,1..m] of integer;
     mas1=array[1..n*m] of integer;
var z,v,g:mas;
    ozv:mas1;
    i,k:integer;
    flag:boolean;
procedure vv(var a:mas);{ввод массивов}
var i,j:integer;
begin
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     a[i,j]:=-50+random(51);
     write(a[i,j]:4)
    end;
   writeln
  end;
  writeln
end;
 
function sravm(z,v,g:mas):boolean;{поиск одинакового элемента в трех массивах}
var ozv:mas1;
    i,k:integer;
    flag:boolean;
 function o(b,c:mas;var od:mas1):integer;{одинаковые элементы из двух массивов записываем в одномерный массив}
 var i,ib,jb,ic,jc:integer;
    f:boolean;
    k:integer;
 begin
  for i:=1 to n*m do od[i]:=0;
  k:=0;
  ib:=1;
  while (ib<=n) do
   begin
    jb:=1;
    while (jb<=m) do
     begin
      ic:=1;
      f:=false;
      while (ic<=n)and(not(f)) do
       begin
        jc:=1;
        while (jc<=m)and(not(f)) do
         begin
          if b[ib,jb]=c[ic,jc]
           then
            begin
             f:=true;
             od[k+1]:=c[ic,jc];
             inc(k)
            end;
          inc(jc)
         end;
        inc(ic)
       end;
      inc(jb)
     end;
     inc(ib)
   end;
   o:=k
 end;
 
 function vch(pm:mas;pc:integer):boolean;{проверка вхождения числа в массив}
 var i,j:integer;
    f:boolean;
 begin
   f:=false;
   i:=1;
   while (i<=n)and(not(f)) do
    begin
     j:=1;
     while(j<=m)and(not(f)) do
      begin
       if pc=pm[i,j] then f:=true;
       inc(j)
      end;
     inc(i);
    end;
   vch:=f
 end;
begin
 i:=1;
 flag:=false;
 while (i<=o(z,v,ozv))and(not(flag)) do
  begin
   if vch(g,ozv[i]) then flag:=true;
   inc(i)
  end;
 if flag then writeln(ozv[i-1]);
 sravm:=flag;
end;
begin
 randomize;
 vv(z);
 vv(v);
 vv(g);
 writeln(sravm(z,v,g));
 readln
end.

const
  n=3;m=4;
type
  mas=array[1..n,1..m] of integer;
var
  z,v,g:mas;
  f2:text;
  j,i:integer;
 
procedure vv(var a,b,c:mas);
var i,j:integer;
begin
  assign(f2,'laba6.txt');
  reset(f2);
  for i:=1 to n do
    begin
      for j:=1 to m do
        read(f2,a[i,j]);
      readln(f2);
    end;
  readln(f2);
  for i:=1 to n do
    begin
      for j:=1 to m do
        read(f2,b[i,j]);
      readln(f2);
    end;
  readln(f2);
  for i:=1 to n do
    begin
      for j:=1 to m do
        read(f2,c[i,j]);
      readln(f2);
    end;
  close(f2);
end;
 
 
function od(a:mas):boolean;
Var
  i,j,t,r,in1,jm1,in2,jm2:integer;
  b:boolean;
Begin
    i:=1;b:=true;
    While (i<=n)and(b) do
    Begin
      j:=1;
      While (j<=m)and(b) do
      Begin
        t:=i;
        While (t<=n)and(b) do
        Begin
          r:=j;
          While (r<=m)and(b) do
          Begin
            if (A[i,j]=A[t,r])and(i<>t)and(j<>r) then
            Begin
 
              b:=false;
            End;
            inc(r);
          End;
          inc(t);
        End;
        inc(j);
      End;
      inc(i);
    End;
    if b=false then od:=true
    else od:=false
 
end;
 
 
begin
 
  vv(z,v,g);
append(f2);
  writeln(f2,'1-й массив:');
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(f2,z[i,j]:4);
      writeln(f2);
    end;
  writeln(f2,od(z));
  writeln(f2,'2-й массив:');
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(f2,v[i,j]:4);
      writeln(f2);
    end;
  writeln(f2,od(v));
  writeln(f2,'3-й массив:');
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(f2,g[i,j]:4);
      writeln(f2);
    end;
  writeln(f2,od(g));
 
close(f2);
end.