с сортировкой по алфавиту.

[Dover12]

Помогите наладить программу не могу понять в чём дело что она циклица. Чтения из файла и сортировка по алфавиту и запись в фаил.
Код:

Program f1;
Type
 Zadana9_stroka=^Stroka;
  Stroka=Record
         familia:string;
         next:Zadana9_stroka;
         end;
 Proverka_stroka=^Stroka;
var
pBegin,pTemp:Zadana9_stroka;

Procedure zapolnenie(Var pBegin:Zadana9_stroka);
var
 f:text;
begin
assign(f,'int.txt');
reset(f);
new(pBegin);
 pTemp:=pBegin;
  Readln(f,pTemp^.familia);
   while(not eof(f))do
    begin
     new(pTemp^.next);
      pTemp:=pTemp^.next;
       Readln(f,pTemp^.familia);
   end;
    pTemp^.next:=nil;
     close(f);

end;


Procedure sortirovka(var pBegin:Zadana9_stroka);
 var Min:string;
 pTemp1,pTemp2,k,k1,k2,t,t1,t2:Zadana9_stroka;
begin
 pTemp1:=pBegin;
  t1:=pTemp1;
   While pTemp1^.next<>nil  do begin
   Min:=pTemp1^.familia;
   k:=pTemp1;
   pTemp2:=pTemp1^.next;   t2:=pTemp1;
       While pTemp2<>nil do
       begin
         if pTemp2^.familia<Min then
         begin
          Min:=pTemp2^.familia;
           k2:=t2;
            k:=pTemp2;
         end;
          pTemp2:=pTemp2^.next;
       end;
    if (k<>pTemp1) then
     if (pTemp1=pBegin) then
      begin
       pTemp:=pTemp1^.next;
        pTemp1^.next:=k^.next;
         k^.next:=pTemp;
          pBegin:=k;
          k2^.next:=pTemp1;
          pTemp1:=k;
      end
        else
      begin
       t1^.next:=k;
       pTemp:=pTemp1^.next;
       pTemp1^.next:=k^.next;
       k^.next:=pTemp;
           k2^.next:=pTemp1;
            pTemp1:=k;
      end;
     t1:=ptemp1;
     pTemp1:=pTemp1^.next;

  end;
end;

  Procedure vivod(pBegin:Zadana9_stroka);
var size_string,i:integer;
    f1:text;
Begin
assign(f1,'out1.txt');
rewrite(f1);
 pTemp:=pBegin;
   while pTemp<>nil do
   begin
    size_string:=4+length(pTemp^.familia);
     writeln(f1,pTemp^.familia);
     pTemp:=pTemp^.next;
   end;
   close(f1);
end;


begin

zapolnenie(pBegin);
sortirovka(pBegin);
vivod(pBegin);

end.

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

Модератор.

[Stilet]

Ну а отладчиком ты пробовал пройтись? Задача именно в стортировке? Метод сортировки любой?