[roamer]

В таком тексте трудно разобраться.
Лучше бы его структурировать.
Но если следовать тому, что там есть, то как вариант, должно быть так (синтаксис не проверял, извините) :

Код:

program Mas;
Const
  m=40; n=40;
Var
  k:integer;
  i,j:integer; //rabo4aya peremennaya
  b:array [1..m,1..n]of real; // Massiv 1
  a:array [1..m,1..n] of real; // Massiv 2
  c:array[1..m*n] of real;
begin
  //---------------------------------------
  //Значения констант нельзя менять, если они объявлены так, как объявлены                                                                                                                                          
  //writeln('V-te kol-vo n <=40');
  //readln(n);
  //writeln('V-te kol-vo m <=40');
  //readln(m);
  //---------------------------------------                                                                                      
  
  //---------------------------------------                                                                                      
  writeln ('v-te massiv 1 ');
  for i:=1 to n do
   begin                   
    for j:=1 to m do
     begin                   
       write('a(',i,',',j,')=');
       readln(a[i,j]);
     end;          
  end;          
  //---------------------------------------                                                                                      
    
  //---------------------------------------                                                                                      
  writeln ('v-te massiv 2 ');
  for i:=1 to n do
   begin                   
    for j:=1 to m do
     begin                   
       write('b(',i,',',j,')=');
       readln(b[i,j]);
     end;          
  end;          
  //---------------------------------------                                                                                      
    
  //---------------------------------------                                                                                      
  k:=0;
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
       if a[i,j]=b[i,j] then begin
          k:=k+1;
          c[k]:=a[i,j];
          writeln('c(',k,')=',c[k]);
       end;               
    end;                 
  end;                 
  //---------------------------------------                                                                                      
    
  readln;
end.