создать списки чисел

p:=0;
t:=0;
for i:=1 to n do
 if a[i]>5 then 
  begin
   inc(p);
   b[p]:=a[i];
  end
  else
  begin
   inc(t);
   c[t]:=a[i];
  end;

uses crt;
type
PNode=^Node;
Node=record
 data:integer;
 next:PNode;
end;
var
HeadP1,HeadP2,HeadP3,tm:PNode;
i:integer;
 
procedure AddToSpis(var HeadP:PNode;k:integer);
var
tmp:PNode;
begin
  if HeadP=nil then
    begin
      New(HeadP);
      tmp:=HeadP;
    end
  else
     begin
       tmp:=HeadP;
         while tmp^.next <> nil do
           tmp:=tmp^.next;
         New(tmp^.next);
         tmp:=tmp^.next;
     end;
  tmp^.next:=nil;
  tmp^.data:=k;
end;
procedure Print(HeadP:PNode);
begin
   while HeadP <> nil do
     begin
       write(HeadP^.data:4);
       HeadP:=HeadP^.next;
     end;
end;
procedure FreeSpis(var HeadP:PNode);
var
tmp:PNode;
begin
  while HeadP <> nil do
     begin
       tmp:=HeadP;
       HeadP:=HeadP^.next;
       Dispose(tmp);
     end;
end;
procedure Form(Head1:PNode; var Head2,Head3:PNode);
begin
  while Head1 <> nil do
    begin
      if Head1^.data > 5 then
         AddToSpis(Head2,Head1^.data)
      else
        AddToSpis(Head3,Head1^.data);
      Head1:=Head1^.next;
    end;
end;
begin
  HeadP1:=nil;
  HeadP2:=nil;
  HeadP3:=nil;
     writeln('Заполнение 1-го списка,признак окончания 99');
     read(i);
    repeat
      AddToSpis(HeadP1,i);
      read(i);
    until i=99;
    writeln;
    writeln('Содержимое 1-ого списка');
    Print(HeadP1);
    writeln;
    Form(HeadP1,HeadP2,HeadP3);
    writeln('Содержимое 2-вого списка');
    Print(HeadP2);
    writeln;
    writeln('Содержимое 3-его списка');
    Print(HeadP3);
    writeln;
    FreeSpis(HeadP1);
    FreeSpis(HeadP2);
    FreeSpis(HeadP3);
end.