Считать файл Txt в переменную. Опции

[ast]

Как считать содержимое файла txt в строковую переменную?

[ast]

var s: string;
      t: text;
      s: string;

begin
readln(s);
assign(t,s);
reset(t);

while not eof(t) do
begin
readln(t,c);
end;
writeln( c);
end.

В этом случае выводится последняя строка файла. Как загнать весь текст в одну 'с' и как быть в случае длины строки >255?

М

Пользуемся тегами CODE ! klem4