Как в Паскале, если имеется несколько readln`ов, ссылаться на нужный из них? (вн+)

Например, я прописываю несколько if и в каждом случае readln - разный. Когда я запускаю программу, вне зависимости от if readln всегда один и тот же. Как это исправить?
Для наглядности:
program name;
var a:integer;
begin
writeln('input a');
readln;
if a<10 then
begin
writeln('no no no');
readln;
end;
if (a>20) and (a<30) then
begin
writeln('ziryulnik');
readln;
end;
if a>100
then
begin
writeln('o nonnonon');
readln
end;
end.