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

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.