Heapsort string в файле

[skorpi]

Не могу отсортировать список фамилий по алфавиту пирамидальным способом, прежде, считав этот список из готового файла, затем, после сортировки, записать в другой файл.
Принцип, в общих чертах понял, а с реализацией кода строкового типа - застрял. Видимо заморочка с разными типами данных.
Заранее благодарю.

Program pir_sort;
Uses CRT;
Const n = 30;

Var a : array [1..n] of string;
    Size, i, j : byte;
    temp : string;
    Input, Output: text;   

  Procedure HeapSort(i, j : byte);
    Var
     new_elm : string;
     Child : byte;
     k : byte;

    Begin
      new_elm := a[size];
      While (i <= k div 2) do
        Begin
           Child := i*2;
           If (new_elm < a[child]) or (new_elm < a[child+1]) then
              If a[child+1]>a[child] then Inc(child);
                If new_elm > a[Child] then Break;
                   a[i] :=a[Child];
                   i := Child;
         End;
         a[i] := new_elm;
    End;

  Procedure Swap(var x,y : byte);
    Begin
      x := x xor y;  y := x xor y;  x := x xor y;
    end;

BEGIN
    Assign(Input, 'Input.txt');
    Assign(Output, 'Output.txt');
    Reset(Input);
    Rewrite(Output);

   While not (Eof(Input)) do
     Begin
       Inc (Size);
       Readln (Input, a[Size]);
     end;

   For i:= 1 to Size - 1 do
      For Size:= Size div 2 downto 1 do HeapSort(Size, n);

        Swap(a[1], a[Size+1]);
          For  Size := n - 1 downto 1 do

            Begin
              Swap(a[1], a[Size+1]);
              HeapSort(1, Size-1);
            End;

   For Size := 1 to n do Writeln(Output, a[Size]);
 Close(Output);
 Close(Input);

END.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.