[Pascal] Файлы

[AXE]

помогите с задачкой плиз:
дан файл,каждая строка которого - целое число.упорядочить строки этого файла по возрастающей.

[juden]

с начало запиши все строки в массив, а потом от сортируй его

[AXE]

можно немного поподробней,а то плохо в паскале разбираюсь.

[Колядин Максим]

Да, недавно аналогичная задачка была.... В общем, правильно, записывай все числа из файла в массив и сортируй его по возрастанию.

Код: Выделить всё

var a: array [1..100] of integer;
f: text;
i,c,buf: integer;
done: boolean;
begin
assign(f, 'text.txt'); reset(f);
while not eof(f) do begin
inc(c);
readln(f,a[c]);
end;
repeat
done:=true;
for i:= 1 to (c-1) do if a[i]<a[i+1] then begin
buf:=a[i];
a[i]:=a[i+1];
a[i+1]:=buf;
done:=false;
end;
until done;
for i:= 1 to c do write(a[i]:3);
readln;
end.

[AXE]

Спасибо за помощь)))