Текстовый файл, вывод

[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.

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

[unbanned]

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.

а если вот так?

[123456789igor]

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

[unbanned]

эмм... а какой паскаль? Turbo?

если да, то файл должен в OEM кодировке быть...

[123456789igor]

FREE у меня!

[unbanned]

проблема в кодировке скорее всего