Считывание чисел через readln, при вводе 0 - выход из цикла - Free Pascal

Формулировка задачи:

нужно написать программу по считыванию чисел через readln, при вводе 0 выход из цикла. после выхода из цикла нужно вывести на экран проходило ли число в цикле 50 или нет.нужно сделать через while. помогите пожалуйста.

Решение задачи: «Считывание чисел через readln, при вводе 0 - выход из цикла»

Листинг программы

var
a: integer;
p: boolean;
begin
readln(a);
while a <> 0 do
  begin
  if a=50 then
     p:=true;
  readln(a);
  end;
if p=true then
writeln('Число 50 проходило')
else
writeln('Число 50 не проходило');
end.

Объяснение кода листинга программы

Объявлены две переменные: a типа integer и p типа boolean.
Происходит считывание числа в переменную a с помощью функции readln.
Запускается цикл while, который будет выполняться до тех пор, пока значение переменной a не станет равным 0.
Внутри цикла проверяется, равно ли значение переменной a 50. Если это так, то значение переменной p устанавливается в true.
После проверки происходит считывание нового числа в переменную a.
По завершении цикла, если значение переменной p равно true, то выводится сообщение Число 50 проходило, иначе выводится сообщение Число 50 не проходило.