|
program work_with_file;
uses crt, wwfmodul; {подключаем наш модуль}
var C: char;
Begin
Openfile;
repeat
clrscr;
Write('A - add symbol to file / D - delete symbol / Esc - exit');
C:=Readkey;
case Ord(C) of
65,97: InputChar; {a или A}
68,100: DelChar; {d или D}
end;
until Ord(C)=27; {Esc}
Closefile;
End.
|
|