[LN berf]

Так ты запрашиваешь юзера после вывода еще раз ввести переменную
while a<>100 do
begin
readln(a);
{============}
{Body of Program}
{...}
end;

Соррите если че то не понял