Ошибка exitcode 216

type
  point=^spisok;
  spisok = record
    fam: string;
    next: point
  end;
 
var
  fst: point;
 
 
 
function adds(s:string; fst: point):point;
var
  p:point;
begin
  new(p);
  p^.fam:=s;
  adds:=p;
end;
 
procedure vivod(fst:point);
var
  pout: point;
  i: integer;
begin
  if fst=nil then begin  writeln('pust'); exit; end;
    pout:=fst;
   i:=1;
   while fst<>nil do begin
    write(i,') ');
    inc(i);
    writeln(pout^.fam);
    pout:=pout^.next;
   end;
  writeln;
end;
 
 procedure vvod(var fam: point);
 
 var T:text;
     S:string;
 begin
 
 assign(T,Paramstr(1));Reset(T);
  while not Eof(T) do begin
 
 
     Readln(T,S);
    fst:=adds(S,fst);
   end;
 close(T);
end;
 
begin
 vvod(fst);
 vivod(fst);
 writeln;
end.

function adds(s:string; fst: point):point;
var
  p:point;
begin
  new(p);
  p^.fam:=s;
  p^.next := fst; // <--- Раз
  adds:=p;
end;
 
procedure vivod(fst:point);
var
  pout: point;
  i: integer;
begin
  if fst=nil then begin  writeln('pust'); exit; end;
    pout:=fst;
   i:=1;
   while pout<>nil do begin  // <--- Два. Здесь раньше была другая переменная
    write(i,') ');
    inc(i);
    writeln(pout^.fam);
    pout:=pout^.next;
   end;
  writeln;
end;