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

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