Рассортировать по убыванию методом выбора массив, взятый из файла.

uses crt;
type mas=array[1..100] of integer;//тип масива
procedure ReadFile(var f:text;var v:mas;var x:byte);//чтение файла
var i:byte;
    name:string;
begin
write('Имя файла для чтения: ');
readln(name);
name:=name+'.txt';
assign(f,name);
{$I-}reset(f);{$I+}
if IOResult<>0 then//если нет файла, чтобы не выкидывало прграмму
 begin
  writeln('Файл ',name,' не найден!');
  writeln('Программа будет закрыта.');
  readln;
  exit;
 end;
read(f,x);//читаем размер массива
writeln('Исходный масив:');
for i:=1 to x do
 begin
  read(f,v[i]);//читаем сам массив
  write(v[i],' ');//выводим на экран
 end;
writeln;
writeln;
close(f);//закрываем файл
end;
procedure WriteFile(var f:text;v:mas;x:byte);//вывод массива в файл
var i:byte;
    name:string;
begin
write('Имя файла для записи: ');
readln(name);
name:=name+'.txt';
assign(f,name);
rewrite(f);
writeln(f,'Itogovyj massiv:');
for i:=1 to x do
write(f,v[i],'  ');//пишем массив через пробелы
close(f);
write('Файл записан!');
end;
procedure Sort(var v:mas;x:byte);//сортировка массива выбором по убыванию
var i,nmax,j:byte;
    buf:integer;
begin
for i:=1 to x-1 do
  begin
    nmax:=i;//текущий максимальный
    for j:=i+1 to x do
    if v[j]>v[nmax] then nmax:=j;//ищем впереди самый большой
    buf:=v[i];
    v[i]:=v[nmax];//меняем местами
    v[nmax]:=buf;
  end;
end;
procedure Udal(var v:mas;var x:byte);//удаление нолей
var i,j:byte;
begin
i:=1;
while i<=x do//пока не конец массива
if v[i]=0 then//если ноль
 begin
  for j:=i to x-1 do//сдвигаем к нему на 1 конец массива
  v[j]:=v[j+1];
  x:=x-1;//уменьшаем размер масива
 end
else i:=i+1;//если не ноль, дальше
writeln('Итоговый массив:');
for i:=1 to x do
write(v[i],' ');//выводим на экран
writeln;
end;
var a:mas;
    f,g:text;
    n:byte;
begin
clrscr;
ReadFile(f,a,n);
Sort(a,n);
Udal(a,n);
WriteFile(g,a,n);
readln
end.