Сортировка естественным слиянием по убыванию

[DeENiZzZ]

Здравствуйте уважаемые знатоки! На дисциплине в Учреждении Образования возникли ошибки (или, как я их называю: "краснострочные") с программой (ниже по тексту). Непонятно абсолютно все (ну тут я уже немножко загнул)! Преподаватель не может (и не хочет) помочь, даже намекнуть, где ошибка и как её исправить. Надеюсь на вашу помощь и понимание.

Само задание такое: "Дана последовательность, расположить ее ненулевые элементы по убыванию".

Procedure Sort(name: string; var f: text);
Var s1,s2,a1,a2,where1,tmp: integer;
      f1,f2: text;
Begin
s1:=5; s2:=5; {Можно задать любые числа, которые запустят цикл while}
Assign(f,name);
Assign(f1,'input');
Assign(f2,'output');
While (s1>1) and (s2>=1) do
 begin
  where1:=1;
  s1:=0; s2:=0;
  Rewrite(f);
  Reset(f);
  Rewrite(f1);
  Rewrite(f2);
  Read(f,a1);
  Write(f1,a1,' ');
  While not EOF(f) do
   begin
    read(f,a2);
    If (a2<a1) then
    begin
      Case where1 of
    1: begin
       where1:=2;
       inc(s1);
       End;
    2: begin
       where1:=1;
       inc(s2);
         End;
      End;
    End;
    Case where1 of
    1: write(f1,a2,' ');
    2: write(f2,a2,' ');
    End;
     a1:=a2;
    End;
   If where1=2 then inc(s2) else inc(s1);
   Close(f);
   Close(f1);
   Close(f2);
   Rewrite(f);
   Reset(f1);
   Reset(f2);
   Read(f1,a1);
   Read(f2,a2);
   While (not EOF(f1)) and (not EOF(f2)) do
    begin
     If (a1<=a2) then
    begin
     Write(f,a1,' ');
     Read(f1,a1);
    End
     else
    begin
     Write(f,a2,' ');
     Read(f2,a2);
      End;
     End;
    While not EOF(f1) do
     begin
      tmp:=a1;
    Read(f1,a1);
    If not EOF(f1) then Write(f,tmp,' ')
    else Write(f,tmp);
     End;
    While not EOF(f2) do
     begin
    tmp:=a2;
    Read(f2,a2);
    If not EOF(f2) then Write(f,tmp,' ')
      else Write(f,tmp);
     End;
    Close(f);
    Close(f1);
    Close(f2);
   End;
 Erase(f1);
 Erase(f2);
End;
var g:text;
    s:string;
begin
write('Имя файла: ');
readln(s);
s:=s+'.txt';
Sort(s,g);
write('Файл отсортирован!');
readln
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] [/CODE] (читать FAQ)
Модератор