не могу разобраться с циклом

Program Spisok;
uses  crt;
type
  Tinf=string; 
  List=^TList;
  TList=record 
    data,parts:TInf;
  next:List;  
  end;
 
procedure AddElem(var spis1:List;znach1,znach2:TInf);
var
  tmp:List;
begin
  if spis1=nil then 
  begin
    GetMem(spis1,sizeof(TList));
    tmp:=spis1;
  end
  else 
  begin
    tmp:=spis1;
    while tmp^.next<>nil do
     tmp:=tmp^.next; 
   GetMem(tmp^.next,sizeof(TList)); 
    tmp:=tmp^.next;  
  end;
  tmp^.next:=nil; 
  tmp^.data:=znach1;
 tmp^.parts:=znach2; 
end;
 
procedure Print(spis1:List);
begin
  if spis1=nil then
  begin
    writeln('Spisok pust.');
    exit;
  end;
  while spis1<>nil do
  begin
    Writeln(spis1^.data, 'sostoit iz', spis1^.parts);
    spis1:=spis1^.next
  end;
end;
Function SearchElemZnach(spis1:List;znach1:TInf):List;
begin
  if spis1<>nil then
    while (Spis1<>nil) and (znach1<>spis1^.data) do
      spis1:=spis1^.next;
  SearchElemZnach:=spis1;
end;
var
  Spis,tmpl:List; i,n:integer; t,ch:string; c:char;
begin
  Spis:=nil;
 Writeln('Viberete deystvie');
   Writeln('1 - zapolnenie');
   Writeln('2 - vivod');
   Writeln('0 - vixod');
 
   repeat
    c:=readkey;
    case c of
      '1':begin
      clrscr;
    writeln('vvedite nomer detali');
    read(t); ch:=copy(t,1,1); delete(t,1,1);
    tmpl:=searchelemznach(spis, ch);
    if tmpl=nil then addelem(spis, ch, t)
    else writeln('Detal s takim nomerom uze est');
           end;
      '2':begin
     clrscr;
     Print(Spis);
     readkey;
         end;
 end;
   until (c='0');
end.