Чтение матрицы из файла, как засунуть в процедуру ? Опции

[Hamster]

Чтение матрицы из файла написвть труда не составляет. А как засунуть в процедуру непонятно !?

ЗЫ. Опишите пжаласта эту процедуру(функцию) ! и как ее применить к нескоольким матрицам в одной программе ?

[volvo]

Приведите код если можно... Того, что труда не составляет... Именно программы, я покажу, как сделать из нее процедуру...

[Guest]

Приведите код если можно... Того, что труда не составляет... Именно программы, я покажу, как сделать из нее процедуру...

Код

program vvod_matr;
const
 m=3;
 n=3;
type
 matr=array[1..m,1..n] of integer;
var
 A : matr;      {matrivca A}
 i,j : integer; {peremnnie cikla}
 inp : text;
 begin
  assign(inp, 'c:\a.txt');
  reset(inp);
  writeln('Ishodmaja Matrica A : ');
  for i:=1 to m do
  begin
   for j:=1 to n do
   read(inp,A[i,j]);
   end;
   for i:=1 to m do
   begin
  for j:=1 to n do
  write      (A[i,j],' ');
  writeln;
  end;
 readln;
 end.

PLZ.