работу с текстовым файлом

[kolian87]

Пример. Программа демонстрирует работу с текстовым файлом, тип файла и его обработку задаёт пользователь, выбрав соответствующий режим. Необходимо помнить, что прежде чем использовать режим 2, нужный файл должны быть записан на ГМД.

Program VT_1;
Var F1:text;
St : string[80];
Stf : string[12];
Kol , I : byte;
J : byte;
Count : integer;
K : char;
Procedure Crttext ;
begin
Rewrite( F1 ) ;
writeln( ' вводите исходный текст ' ) ;
readln( St ) ;
while St <> ' конец ' do
begin
Writeln( F1 , St ) ;
        readln( St )
end;
Close( F1 );
end;
Procedure Vivtext ;
Begin
writeln('вывод текстового файла');
    Reset( F1 ) ;
while not Eof(F1) do
begin
while not eoln(F1) do
begin
Readln( F1 , St );
writeln( Lst , St );
end
end
end;
Begin
while True do
begin
ClrScr;
writeln('МЕНЮ :');
writeln('      1-создание текстового файла');
writeln('      2-чтение и печать текстового файла');
writeln('      3-выход из программы');
write(' введите имя файла');
readln( Stf );
write(' введите режим ');
readln( I );
Assign( F1 , Stf );
case I of
1: Crttext;
2: Vivtext;
3: Halt
end;
Read( Kbd , K );
end
End.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Stilet]

Нормуль )
И что не так?