подкиньте примеров на двухмерные массивы.

type tmas=array[1..10] of real;
     matrix=array[1..10,1..10] of real;
procedure readMatrix(var f:text;var a:matrix;var n,m:byte);
 var i,j:integer;
  begin
   read(f,m,n);
    for i:=1 to m do
   for j:=1 to n do    {zchutuvannia matrix}
    begin
     read(f,a[i,j]);
    end;
  end;
function ABC(a:tmas;n:byte):byte;
var res,i:byte;
 begin
  res:=0;
  for i:=1 to n do
   begin                       {kil-t zmin znaku}
    if (a[i]*a[i+1]<0) then
     inc(res);
   end;
   ABC:=res;
  end;
 procedure writeMatrix(var f:text;mas2:matrix;mas:tmas; n,m:byte);
  var i,j,count:word;
 begin
  for i:=1 to n do
  begin
   for j:=1 to m do         {vuvid matrix}
    begin
     mas[j]:=mas2[j,i];
    end;
    count:=ABC(mas,m);
   write(f,count,'  ');
   end;
 end;
var m,n:byte;mas2:matrix;mas:tmas;f:text;
begin
 assign(f,'input1.pas');
  reset(f);
  readMatrix(f,mas2,n,m);  {1 fail dano}
 close(f);
 
  assign(f,'output1.pas');
   rewrite(f);
    writeMatrix(f,mas2,mas,n,m);    {2 rezult fail}
  close(f);
end.