Текстовый файл, вывод Опции

[123456789igor]

У меня есть текстовый файл. Мне нужно вывести его содержимое на экран через паскаль. Вот что я делал

Код

var
f1:text;
s:char;
begin
assign(f1,'1.txt');
while not eof(f1) do
readln(f1,s);
write(f1,s);
readln;
end.

Но так ничего не выводиться. Подскажите как это сделать правильно.

[123456789igor]

Вот на что изменил:

Код

var
f1:text;
s:char;
begin
assign(f1,'1.txt');
reset(f1);
while not eof(f1) do
readln(f1,s);
write(s);
close(f1);
readln;
end.

но дело в том, что выводиться на экран только одна буква, а не весь текст.

[123456789igor]

Всё разобрался!

Код

var
f1:text;
s:string;
begin
assign(f1,'1.txt');
reset(f1);
while not eof(f1) do begin
readln(f1,s);
writeln(s);
end;
close(f1);
readln;
end.

Только почему не считываются русские буквы?

[DarkWishmaster]

Всё разобрался!

Код

var
f1:text;
s:string;
begin
assign(f1,'1.txt');
reset(f1);
while not eof(f1) do begin
readln(f1,s);
writeln(s);
end;
close(f1);
readln;
end.

Только почему не считываются русские буквы?

Турбо Паскаль не выводит русские символы, зато Free Pascal прекрасно это делает.

[Lapp]

Турбо Паскаль не выводит русские символы,

Неправда.

Только почему не считываются русские буквы?

Русские буквы прекрасно считываются. Проблема с их выводом. В нашем FAQ есть про настройки для работы в TP с русскими буквами.