Проблема с чтением из файла... Опции

[Костян]

Народ отсень простенький вопрос(в поиске не нашел, так что спрашиваю напрямую). Есть файл file.txt и нужно сделать прогу которая бы выводила текст этого файла на экран. Вот и все. Вот что у меня получилось:

Код

program qest;
uses crt;
var
fiile : text;
begin
clrscr;
assign(fiile,'file.txt');  reset(fiile);
writeln(fiile);
readkey;
end.

Обьясните же мне старому дурню шо тут не так.

[volvo]

assign(fiile,'file.txt');  reset(fiile);
writeln(fiile); { <--- Здесь ! }

Ошибка твоя - в том, что ты пытаешься НЕ распечатать файл, а записать в него пустую строку (ну вот такой у Паскаля синтаксис ), причем будет ошибка, ибо файл-то у тебя открыт для чтения, а не для записи!

А делать-то надо было вот так:

program qest;
uses crt;
var
  fiile : text;
begin
  assign(fiile,'file.txt');  reset(fiile);
  while not eof(fiile) do begin
    readln(fiile, s); { <--- Читаешь строку из файла ... }
    writeln(s); { <--- и пишешь ее на экран }
  end;
  readkey;
end.