Посимвольный Ввод, Вопрос Опции

[D1ma]

Код

USES CRT;
VAR
F:TEXT;
I:WORD;
S,C:CHAR;
N:WORD;
BEGIN
CLRSCR;
     ASSIGN(F,'C:\F1.TXT');
     RESET(F);
     I:=0;
     N:=60000;
     WHILE NOT EOF(F) DO
     BEGIN
          IF EOLN(F) THEN
          BEGIN
               IF I<N THEN N:=I;
               I:=0;
               READ(F,C);
               READ(F,C);
          END;
          READ(F,C);
          I:=I+1;
     END;
     IF I<N THEN N:=I;
     IF N=60000 THEN I:=0 ELSE I:=N;
     WRITE('MIN = ');
     WRITELN(I);

END.

Нужно осуществить посимвольный ввод в текстовый файл.
Пробывал так:

Код

  ASSIGN(F,'C:\F1.TXT'); REWRITE(F);
FOR I:=1 TO 5 DO BEGIN
READLN(S);
WRITELN(F,S);END;CLOSE(F);

В чем ошибся? -)

[Lapp]

Нужно осуществить посимвольный ввод в текстовый файл.
Пробывал так:

Код

  ASSIGN(F,'C:\F1.TXT'); REWRITE(F);
FOR I:=1 TO 5 DO BEGIN
READLN(S);
WRITELN(F,S);END;CLOSE(F);

В чем ошибся? -)

Вместо WriteLn(f,s) сделай Write(f,s). Хотя, конечно, посимвольный вывод в текстовый файл - это неправильно.