Типизированный файл, сортировка по убыванию.

[Pumus]

Собственно, прошу помочь. Вот задание: Задан типизированный файл F, все компоненты которого – целые числа (4-хбайтные беззнаковые). Переписать в текстовый файл G компоненты файла F, упорядоченные по убыванию. Желательно не использовать массив, но в принципе, можно.
Собственно так как я никогда не встречался с работой с типизированными файлами, дальше чем

Program inverse;
Uses crt;
var f,g:integer;

Begin
clrscr;
assign(f,'D:\F.txt');
reset(f);
assign(g,'D:\G.txt');
rewrite(g);
j:=1;
while not eof(f) do
      begin

      end;

end.

у меня не дошло. Собственно, просьба помочь т_Т
Собственнл вот ещё пара мыслей:
4х байтное беззнаковое - скорее всего, нужно использовать unsigned longint.
Вот написанный мной же алгоритм сортировки:

Program ubiv;
Uses crt;
const n=10;
Var st:array[1..n] of integer;
    i,j,t,l:integer;

begin
clrscr;
i:=1;
repeat
st[i]:=random(100);
i:=i+1;
until i=10;
i:=1;
repeat
write(st[i],' ');
i:=i+1;
until i=10;
writeln('');
 for i:=1 to n-1 do
 for j:=i+1 to n do
   if (st[j]>st[i]) then
     begin
     t:=st[i];
     st[i]:=st[j];
     st[j]:=t;
     end;
for i:=1 to n-1 do
begin
write(st[i],' ');
end;
readln;
end.

[Stilet]

Так сортирнул ты вродь пузырьково. Гуд.
Вот запись в файл:

var f:file of integer;
begin
 assign(f,'file');rewrite(f);
for i:=1 to n do write(f,s[i]);
close(f);
end.

Хотя я б тебе посоветовал так:
Делаеш тип:

const n=5;
type massiv=array[1..n] of longint;
var s:massiv; f:file of massiv;
begin
 {Вводим и сортируем s по старинке}
........
 {открываем файл-пишем все сразу-закрываем файл}
  assign(f,'file');rewrite(f);write(f,s);close(f);

end.

Так удобнее

[Pumus]

Ых... Что-то не получается собрать. Можешь пожалуйста помочь сделать это все цельным куском? ж)

[Stilet]

Что значит не получается?
Var к Var кидай
А то что в begin end кидай в конец проги перед последним end.

[Pumus]

Все, вроде разобрался и вроде даже работает ж)
Спасибо за помощь .)