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

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.

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.

Program inverse;
Uses crt;
var f:file of integer;{типизированный файл целых чисел}
    g:text;{текстовый файл}
    b,n,i,j,t:integer;
    st:array[1..1000] of integer;{масив}
    c:char;{символ для окончания ввода}
Begin
clrscr;
assign(f,'file1');{связываем файл с переменной}
rewrite(f);{открываем для записи}
assign(g,'file2.txt');
rewrite(g);
writeln('Vvedite celye chisla v fail File1, okonchanie vvoda Esc:');
repeat
readln(b);{читаем число}
write(f,b);{записываем в файл}
c:=readkey;{ожидаем нажатия любой клавиши}
until c=#27;{если Esc, то заканчиваем ввод}
reset(f);{открываем файл для чтения}
n:=0;
while not eof(f) do{пока не конец файла}
   begin
    n:=n+1;{считаем числа}
    read(f,st[n]);{заносим их в массив}
   end;
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
write(g,st[i],' ');{заносим массив в текстовый файл(через пробел)}
close(f);{закрываем файлы}
close(g);
readln
end.