Something

program mac_czyt;

{$APPTYPE CONSOLE}
const

wie =7;
kol =3;

type

  macierz = array[1..wie,1..kol] of real;


var

i, j :integer;
f :text;
m, n, k  :macierz;



procedure czytanie(var mp :macierz; npliku :string );
var
i, j :integer;
f :text;
begin       {czytanie}
assign(f, npliku);
reset(f);
  for i:=1 to wie
  do
    for j:=1 to kol
    do
      read(f, mp[i,j]);

  close(f);
end;  {czytanie}

procedure pisanie(var mp :macierz; npliku :string);
var
  i, j :integer;
  f :text;
begin
  assign(f,'wyjscie.txt');
  rewrite(f);
  for i:=1 to wie
  do  begin
    for j:=1 to kol
    do
      write(f, mp[i,j]:10:2 );
    writeln(f);
    end;
  close(f);
end; {pisanie}

procedure sumuj(var wyn, skl1, skl2 :macierz);
var
  i, j :integer;
begin
  for i:=1 to wie
  do begin
    for j:=1 to kol
    do
      wyn[i,j]:= skl1[i,j]+ skl2[i,j];
end; {sumuj}

procedure mnozenie(var wyn, skl1, skl2 :macierz);
var
  i, j :integer;
function wrozka(i,j :integer):real;
var
n :integer;
suma :real;
begin
  suma:=0;
  for n:=1 to l
  do
    suma:=suma + cz1[ i , n ] * cz2[ n , j ]
    wrozka:=suma;
end;{wrozka}

begin
for i:=1 to k
do
  for j:=1 to m
  do
    ilocz[ i, j ]:=wrozka[i,j]

end;{mnozenie}
end;



begin  {program}
 czytanie(m, 'wejscie.txt');
 czytanie(n, 'wejscie2.txt');
 sumuj( k, m, n );

 mnozenie(wyn, skl1, skl2);
 pisanie(k, 'wyjscie2.txt');
end.