Работа с файлом

[scudo]

И еще один вопрос как вывести все данные из текстового файла?

[MOTOCoder]

Убираю Reset и остается только Append.И один фиг он стирает записи уже имеющиеся в текстовом файле и дописывает ново-введеные с самого начала.

Странно, проверил еще раз-все работает.
[syntax='Delphi']
var
f:text;
i:integer;

begin
assign(f,'e:\temp\d.txt');
append(f);
for i:=1 to 100 do
writeln(F,'append ',i);
close(f);
end.
[/syntax]

Такой код добавляет 100 строк в файл, не стирая уже записанные.

На счет вывода всех данных:
[syntax='Delphi']
while not EOF(F) do
begin
readln(F,S);
writeln(S);
end;
[/syntax]

[scudo]

Огромное спасибо.Еще вопрос.Как осуществить сортировку?

[MOTOCoder]

По какому принципу?

[Хыиуду]

Огромное спасибо.Еще вопрос.Как осуществить сортировку?

Как правило - считать данные из файла в массив, массив отсортировать (раздел "Алгоритмы"), записать данные из массива в файл.