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

[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:string;
begin
assign(f1,'1.txt');
reset(f1);
while not eof(f1) do begin
readln(f1,s);
writeln(s);
end;
close(f1);
readln;
end.

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