Списки. Найти процент отрицательных элементов

uses crt;
type
  tList=^pList;
  pList=record
    v:real;
    x:tList;
  end;
 
 var
  List:tList;
  n:integer;
  s:string;
  ch:char;
 
 procedure del(var ch:char;var s:string);
 begin
  if (ch=#8) then 
  begin
    delete(s,length(s),1);
    clearline;
    write(s);
  end;
 end;
 
procedure vvodn(var ch:char;var s:string;var n1:integer);
begin
 writeln('Введите количество цифр:');
 s:='';
 repeat
 ch:=readkey;
 if ch in ['0'..'9'] then
  begin
   write(ch);
   s:=s+ch;
  end;
  
  if (ch=(#13)) and (length(s)<>0)  then writeln;
 
  del(ch,s);
  until (ch=(#13)) and (length(s)<>0);
  n1:=strtoint(s);
end;
 
procedure vvod(var L:tList;var n:integer);
var
  f:tList;
begin
  f:=nil;
  while n>0 do
    begin
      n:=n-1;
      if f=nil then
        begin
          new(f);
          L:=f;
        end
      else
        begin
          new(L^.x);
          L:=L^.x;
        end;
      L^.v:=random(200)-100;
    end;
    L:=f;
end;
 
procedure vivod(L:tList);
begin
    while L<>nil do
      begin
        write(' ',L^.v); 
        L:=L^.x;
      end;
  writeln;
end;
 
 
 
begin
  vvodn(ch,s,n);
  vvod(List,n);
  vivod(List);
  vivod(List);
end.

procedure PrcNeg(L : tList);
var neg, all : Integer;
begin
  neg := 0;
  all := 0;
  while L <> nil do
    begin
      inc(all); if L^.v<0 then inc(neg); L := L^.x;
    end;
    
  Write('Процент отрицательных = ');
  if neg = 0 then WriteLn('0%') else WriteLn(100*neg/all:0:0, '%');
end;