use operator SEEKEOF

while seekeof do
begin
 read(x);
 .....
 .....
end;