Подкорректируйте программу(PascalABC)

[Mnsh]

Вот написал программу и нужна ваша помощь в исправлении ошибок:

program LB4;
Var x:integer;
k:integer;
y:integer;

Begin
Writeln('Введите значение y');
readln(y);
While (y=0) do
begin
if abs(y)<5 and abs(x)=5
then k:=k+1;
Writeln('Введите значение x,y');
readln(x,y);
end;
writeln('otvet',k);
end.

Условие:
Дана непустая последовательность чисел Y. Признаком конца последовательности является значение Y=0. Определить сколько в этой последовательности чисел модуль значения которых меньше пяти

[MoBLer]

Удалил немного лишнего

program LB4;
Var y,k:integer;

Begin

k:=0;
Writeln('Введите значение y');
readln(y);
While y<>0 do
begin
if abs(y)<5 then k:=k+1;
Writeln('Введите значение y');
readln(y);
end;
writeln('otvet',k);
readln;
end.