Kód: Vybrať všetko

uses crt;
var a:char;
    f:TEXT;

procedure pis;
begin
assign(f,'\text4.txt');
rewrite(f);
clrscr;
gotoxy(69,25);write('Esc - konec');gotoxy(1,1);
while(ord(a)<>27) do begin
a:=readkey;write(a); {vypis na obrazovku}
write(f,a);      {zapis do subora       }
                     end;
close(f);
end;

procedure citaj;
begin
assign(f,'\text4.txt');
reset(f);
clrscr;
while not eof(f) do begin
read(f,a);write(a);

                    end;
close(f);readkey;
end;

procedure zmaz;
begin
assign(f,'\text4.txt');   {C:}
erase(f);

end;

BEGIN              clrscr;
writeln('1 - zapis');
writeln('2 - citat');
writeln('3 - zmazat');
a:=readkey;
case a of
'1':pis;
'2':citaj;
'3':zmaz;
end;
END.