Вывести на экран все числа которые больше некоторого заданного числа и удалить их из списка

Program lin_sp;
uses crt;
type
   spisok=^elem;
   elem=record
   data:integer;
   next:spisok;
   end;
var i:spisok;
{------------------------------------}
procedure AddElemK(var current:spisok;elem:integer);
var X:spisok;
begin
    New(x);
    X^.data:=elem;
    X^.next:=nil;
    current^.next:=x;
    current:=x;
end;
{--------------------------------------}
procedure St_spisok(var i:spisok);
var p:spisok; n:integer;
begin
i:=nil;
writeln('vvedit spisok cilyh chisel.kin999:');
readln(n);
AddElemK(i,n);
readln(n);
while n<>999 do
begin
p:=i;
while p^.next<>nil do
p:=p^.next;
AddElemK(p,n);
readln(n);
end;
end;
{----------------------------------------}
procedure Vivod(var i:spisok);
var p:spisok; a,n:integer;
begin
writeln('zadane chislo');
readln(a);
 
while i<>nil do
begin
p:=i;
if n<a then
write(p^.data:10);
inc(n);
i:=i^.next;
dispose(p);
end;
end;
{----------------------------------------}
 
begin
St_spisok(i);
Vivod(i);
readkey;
end.

program Project1;
 
type
  //Тип указателя на элемент списка.
  TPElem = ^TElem;
  //Тип элемента списка.
  TElem = record
    Data : Integer;
    PNext : TPElem; //Указатель на следующий элемент списка.
  end;
  //Тип, описывающий однонаправленный список.
  TList = record
    PFirst : TPElem; //Указатель на первый элемент списка.
    PLast : TPElem; //Указатель на последний элемент списка.
  end;
 
//Начальная инициализация списка. Внимание! Эту процедуру можно выполнять
//только в отношении пустого списка! Иначе - будут утечки памяти.
procedure Init(var aList : TList);
begin
  aList.PFirst := nil;
  aList.PLast := nil;
end;
 
//Добавление элемента в конец однонаправленного списка.
procedure AddL(var aList : TList; const aPElem : TPElem);
begin
  if aPElem = nil then Exit;
 
  aPElem^.PNext := nil;
  if aList.PFirst = nil then
    aList.PFirst := aPElem
  else
    aList.PLast^.PNext := aPElem
  ;
  aList.PLast := aPElem;
end;
 
(*
Исключение элемента из однонаправленного списка по указателю
на предыдущий элемент.
Функция возвращает указатель на элемент, который исключён из списка.
Если указатель на предыдущий элемент равен NIL, то исключается первый
элемент списка.
Эта функция только исключает элемент из списка. Если, кроме этого
требуется удалить элемент из памяти, тогда надо выполнить вызов
Dispose() за пределами процедуры.*)
function Del(var aList : TList; var aPPrev : TPElem) : TPElem;
var
  PDel : TPElem;
begin
  Del := nil;
  if aList.PFirst = nil then Exit;
  
  if aPPrev = nil then begin
    PDel := aList.PFirst;
    aList.PFirst := PDel^.PNext;
  end else begin
    PDel := aPPrev^.PNext;
    if PDel <> nil then aPPrev^.PNext := PDel^.PNext;
  end;
  if aList.PLast = PDel then aList.PLast := aPPrev;
  Del := PDel;
end;
 
//Удаление однонаправленного списка из памяти и инициализация.
procedure ListFree(var aList : TList);
var
  PNext, PDel : TPElem;
begin
  if aList.PFirst = nil then Exit;
 
  PNext := aList.PFirst;
  while PNext <> nil do begin
    PDel := PNext;
    PNext := PNext^.PNext;
    Dispose(PDel);
  end;
  aList.PFirst := nil;
  aList.PLast := nil;
end;
 
//Распечатка однонаправленного списка.
procedure ListPrint(const aList : TList);
var
  PElem : TPElem;
  i : Integer;
begin
  if aList.PFirst = nil then begin
    Writeln('Список пуст.');
    Exit;
  end;
 
  PElem := aList.PFirst;
  i := 0;
  while PElem <> nil do begin
    Inc(i);
    if i > 1 then Write(', ');
    Write(PElem^.Data);
    PElem := PElem^.PNext;
  end;
  Writeln;
end;
 
var
  L : TList;
  PElem, PPrev, PDel : TPElem;
  i, Num, Code : Integer;
  S : String;
begin
  //Начальная инициализация списка.
  Init(L);
 
  repeat
    //Создание списока.
    Writeln('Создание списка.');
    Writeln('Прекратить ввод - пустая строка + Enter.');
    i := 0;
    repeat
      Write('Элемент ', i + 1, ': ');
      Readln(S);
      if S = '' then Continue;
      Val(S, Num, Code);
      if Code <> 0 then begin
        Writeln('Неверная запись целого числа. Повторите ввод.');
        Continue;
      end;
      Inc(i);
      New(PElem);
      PElem^.Data := Num;
      AddL(L, PElem);
    until S = '';
    Writeln('Составлен список:');
    ListPrint(L);
 
    Writeln('Задайте число:');
    Readln(Num);
    Writeln('Элементы списка, которые содержат числа, большие, чем заданное:');
    PPrev := nil; //Указатель на предыдущий элемент.
    PElem := L.PFirst; //Указатель на текущий элемент.
    i := 0;
    while PElem <> nil do begin
      if PElem^.Data > Num then begin //Удаление элемента и переход к следующему.
        //Распечатка.
        Inc(i);
        if i > 1 then Write(', ');
        Write(PElem^.Data);
        //Удаление.
        PDel := Del(L, PPrev);
        PElem := PDel^.PNext;
        Dispose(PDel);
      end else begin //Переход к следующему элементу.
        PPrev := PElem;
        PElem := PElem^.PNext;
      end;
    end;
 
    if i = 0 then
      Writeln('В списке нет ни одного элемента с числом, большим, чем заданное.')
    else begin
      Writeln;
      Writeln('Количество удалённых элементов: ', i);
      Writeln('Cписок после удаления:');
      ListPrint(L);
    end;
 
    //Удаление списка из памяти.
    ListFree(L);
    Writeln('Список удалён из памяти. Работа завершена.');
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.