Найти сумму или разность двух матриц в зависимости от значения параметра flag

uses
  crt;
const
  n=3;
type
  MyArray=array[1..n,1..n]of integer;
var
  f1,f2:text;
  i,j,variant:integer;
  a,b,c:MyArray;
{ïðîöåäóðà ñîçäàíèÿ ìàòðèö}
procedure Creating;
begin
  assign(f1,'input.txt');
  rewrite(f1);
  for i:=1 to sqr(n)*2 do
    write(f1,inttostr(random(8)-4),' ');
  close(f1)
end;
{ïðîöåäóðà âûâîäà ìàòðèöû}
procedure Print(const a:MyArray);
begin
  writeln('Ïîëó÷åííàÿ ìàòðèöà:');
  writeln('------------------');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j],' ');
    writeln
  end;
  writeln('------------------')
end;
{ïðîöåäóðà ÷òåíèÿ}
procedure Reading(var a,b:MyArray);
begin
  assign(f1,'input.txt');
  reset(f1);
  for i:=1 to n do
      for j:=1 to n do
        read(f1,a[i,j]);
  for i:=1 to n do
      for j:=1 to n do
        read(f1,b[i,j]);
  close(f1);
end;
{ïðîöåäóðà ñóììû ìàòðèö}
procedure Summ(const a,b:MyArray; var c:MyArray);
begin
  for i:=1 to n do
    for j:=1 to n do
      c[i,j]:=a[i,j]+b[i,j];
  print(c)
end;
{ïðîöåäóðà ðàçíîñòè ìàòðèö}
procedure Raz(const a,b:MyArray; var c:MyArray);
begin
  for i:=1 to n do
    for j:=1 to n do
      c[i,j]:=a[i,j]-b[i,j];
  print(c)
end;
{ôóíêöèÿ âûáîðà ÷òî áóäåì äåëàòü}
procedure Vibor(const a,b:MyArray; var c:MyArray);
begin
  writeln('Íàæìèòå:');
  writeln('1: A+B');
  writeln('2: A-B');
  writeln('0: ÷òîáû âûéòè');
  readln(variant);
  writeln('------------------');
  case variant of
    1:  summ(a,b,c);
    2:  raz(a,b,c);
    0:  exit;
  end
end;
procedure Records(const c:MyArray);
begin
  assign(f2,'output.txt');
  rewrite(f2);
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(f2,c[i,j],' ');
    writeln(f2);
  end;
  close(f2);
end;
{îñíîâíàÿ ïðîãðàììà}
begin
  creating;
  reading(a,b);
  print(a);
  print(b);
  Vibor(a,b,c);
  records(c);
  writeln('Ìàòðèöà Ñ äîáàâëåíà â ôàéë...')
end.