Разместить элементы файла в динамической памяти в односвязном линейном списке

Uses Crt;
Type aa =^spisok;
   spisok = record
   zn:integer;
     next:aa;
              end;
var
s,p:aa;
i,zna,kol, sum:integer;
// процедура добавление элемента в список
Procedure AddSp;
var q:aa;
begin
if s=nil then  //создается первый элемент
begin
New(p);
s:=p
end
else  begin
    q:=p;
    New(p);
    q^.next:=p;
    end;
p^.next:=nil;
Writeln('Введите значение',i,' элемента');
readln(zna);
p^.zn:=zna;
end;
// функция определения конца списка
Function GoNext:boolean;
begin
if p^.next <> nil then
begin
p:=p^.next;
GoNext:=true;
end
else GoNext:=false
end;
//функция освобождения памяти и вывода элементов списка
Function DisposeAll:boolean;
var q:aa;
begin
p:=s;
while p<>nil do
  begin
q:=p^.next;
write(p^.zn,' ');
Dispose(p);
p:=q;
end ;
writeln;
writeln('Освобождение памяти...');
DisposeAll:=true;
end;
 
Function DisposeC:boolean;// удаление положительного элемента
begin
if p^.zn>0 then
Dispose(p);
end;
 
begin   //операторы основной программы
 
s:=nil;  // nil- признак конца списка
writeln('Введите количество элементов списка');
readln(kol);
for i:=1 to kol do //создание списка
Addsp;
 
p:=s;   //установка  р на начало списка
repeat 
if p^.zn>0 then
begin
sum:=sum+p^.zn; //суммируем положительные элементы
DisposeC;
gonext;
end
else writeln(p^.zn); 
until not gonext;
 
if sum=0 then  writeln('в списке нет полож. элементов')
else writeln('sum=',sum);
DisposeAll;
end.

  if p^.next^.zn>0 then begin
    q:=p^.next; p^.next:=p^.next^.next; Dispose(q);
  end;

while (s<>nil) and (s^.zn>0) do begin
  q:=s; s:=s^.next; Dispose(q);
end;
if s<>nil then begin
  p:=s^.next;
  while p^.next<>nil do
    if p^.next^.zn>0 then begin
      q:=p^.next; p^.next:=p^.next^.next; Dispose(q);
    end else p:=p^.next;
end;

type
  PPNode=^PNode;
  PNode = ^TNode;
  TNode = record
    next: PNode;
    data: Integer;
  end;
 
var
  pp: PPNode; q: PNode;
 
  pp:=@s; { взяли адрес указателя на голову списка }
  while pp^<>nil do { пока указатель по указателю не nil }
    if pp^^.data>0 then begin
      q:=pp^; { сохраним указатель на удаляемый элемент }
      pp^:=pp^^.next; { в указатель запишем адрес следующего элемента }
      Dispose(q); { удалим элемент }
    end else p:=@p^^.next; { перенацелим указатель на поле next текущего элемента }