Работа с файлами

program obolechka;
uses crt;
 type
 mas=array[1..100,1..100] of integer;

var
 vib:char;
 fa:text;


procedure chtenfil(var a:mas);
 var
{ a:array[1..100,1..100] of integer;}
 i,j:byte;
 b:byte;
 n:integer;
begin
 clrscr;
 assign(fa,'mytext.txt');
 reset(fa);
 j:=0;
 while not eof(fa) do begin
    j:=j+1;
    for i:=1 to 2 do begin
    read(fa,a[i,j]);
     end;
     readln(fa)
     end;
  close(fa);
  n:=j;
 writeln('‡ ¤ ­®');writeln;
 for j:=1 to n do begin
 for i:=1 to 2 do begin
 write(a[i,j]:4)
 end;writeln end;
readln;
end;




procedure zapisfil;
 var
  i,a,b:byte;

begin
 clrscr;
 assign(fa,'mytext.txt');
 rewrite(fa);
 repeat
 writeln('‚ўҐ¤ЁвҐ Ї аг н«Ґ¬Ґ­в®ў зҐаҐ§ Їа®ЎҐ«');
 read(a,b);
 for i:=1 to 1 do begin
  write(fa,a,' ',b);
  end;
 writeln(fa);
 until readkey=#27;
close(fa);
end;

 procedure telo;
  var
  a:mas;
  begin
   chtenfil(a);
   end;



begin
 gotoxy(10,10);
 writeln('1-‡ ЇЁбм ­®ўле д ©«®ў');
 gotoxy(10,11);
 writeln('2-’Ґ«®');
 gotoxy(20,30);
 readln(vib);
 case vib of
  '1':zapisfil;
  '2':telo;
  end;
end.