Перенести в начало списка все отрицательные элементы, вернуть количество переносов - Pascal

const
  count = 25;
  
type
  tList = ^rList;
  rList = record
    N : Integer;
    X : tList;
  end;
  
function Create : tList;
var
  First, Cur : tList;
  i : Integer;
begin
  New(First);
  First^.N := Random(21)-10;
  Cur := First;
  for i := 2 to count do
    begin
      New(Cur^.X);
      Cur := Cur^.X;
      Cur^.N := Random(21)-10;
    end;
  Cur^.X := nil;
  Create := First;
end;
 
procedure See(List : tList);
begin
  while List <> nil do
    begin
      Write(#32, List^.N);
      List := List^.X;
    end;
  WriteLn;
end;
 
procedure MoveToBegin(var List : tList);
  
  function isolate(E : tList) : tList;
  var
    Cur : tList;
  begin
    if E = List then
      List := List^.X
    else
      begin
        Cur := List;
        while Cur^.X <> E do
          Cur := Cur^.X;
        Cur^.X := E^.X;
      end;
    isolate := E;
  end;
  
  procedure connect(var L, E : tList);
  var
    Cur : tList;
  begin
    if L = nil then
      L := E
    else
      begin
        Cur := L;
        while Cur^.X <> nil do
          Cur := Cur^.X;
        Cur^.X := E;
      end;
  end;
  
var
  Cur, Tmp, Negative, tmpNegative : tList;
begin
  Negative := nil;
  Cur := List;
  while Cur^.X <> nil do
    if Cur^.N < 0 then
      begin
        Tmp := Cur;
        Cur := Cur^.X;
        tmpNegative := isolate(Tmp);
        tmpNegative^.X := nil;
        connect(Negative, tmpNegative);
      end
    else
      Cur := Cur^.X;
      
  if Negative <> nil then
    begin
      Tmp := List;
      List := Negative;
      connect(List, Tmp);
    end;
end;
 
var
  List : tList;
begin
  Randomize;
  List := Create;
  WriteLn('Список:'); See(List);
  MoveToBegin(List);
  WriteLn('Отрицательные в начале:'); See(List);
end.