связные списки

[Reversi]

помогите дописать процедуру которая смотрит число больше ста,если да она выводит те же числа ,но только больше 100
сама формулировка выглядит так:
"создать связный список, содержащий целые числа. Просмотреть список, на экран выдать только содержание узлов если оно превышает значение 100"
есть часть программы

program Swap; 

type 
plist = ^tlist; 
tlist = record 
data : integer; 
next : plist; 
end; 


procedure addToList(var Start : plist; d : integer); 
var 
lst, node : plist; 
begin 
New (node); 
node^.data := d; 
node^.next := nil; 

if start <> nil then 
begin 
lst := start; 
while lst^.next <> nil do 
lst := lst^.next; 
lst^.next := node; 
end 
else 
start := node; 
end; 

procedure printList(Start : plist); 
var 
lst : plist; 
begin 
lst := start; 
while lst <> nil do 
begin 
write(lst^.data,' '); 
lst := lst^.next; 
end; 
writeln('End of List'); 
end; 

procedure Hundred(Start : plist); 
var 



begin 
Head := nil; 
addToList(Head,120); 
addToList(Head,80); 
addToList(Head,15); 
addToList(Head,140); 
addToList(Head,410); 
addToList(Head,550); 
addToList(Head,51); 


printList(Head); 


Hundred(Head); 


printList(Head) 
end.

[Serge_Bliznykov]

procedure Hundred(Start : plist); 
var 
   lst : plist; 
begin 
   lst := start; 
   while lst <> nil do 
   begin 
     if lst^.data>100 then write(lst^.data,' '); 
     lst := lst^.next; 
   end; 
   writeln('End of List'); 
end;