Задача Дирака

[Renge]

Не могу найти ошибку, программа не выводит ничего.
Задача Дирака о трех рыбаках.
Три рыбака вечером ловили рыбу договорившись поделить ее утром поровну.
Утром один из рыбаков проснулся раньше двух других и решил взять свою
долю и уехать не дожидаясь, когда проснутся его друзья.
Он пересчитал рыб, выкинул одну в реку и взял себе треть оставшихся.
Затем проснулся второй рыбак. Он не знал, что первый рыбак уже уехал
взяв свою долю. И второй рыбак тоже захотел забрать свою долю и уехать
не дожидаясь, когда проснутся его друзья.
Он тоже пересчитал рыб, выкинул одну в реку и взял себе треть оставшихся.
Потом проснулся третий рыбак. Он не знал, что его друзья-рыбаки уже уехали
взяв свою долю. И также захотел забрать свою долю и уехать не дожидаясь,
когда проснутся его друзья. Он тоже пересчитал рыб, выкинул одну в реку
и взял себе треть оставшихся.
Сколько рыб поймали рыбаки? Найти N первых таких чисел.
Для каждого полученного числа вывести на экран общее число пойманных рыб,
а также число рыб, унесенных каждым рыбаком.

PHP код:

    Readln(N);
    x:=3; (решила начать с трех)
    z:=0;
    Repeat
    If (x-1) mod 3=0
    then
    BEGIN
    k1:=(x-1) div 3;
    y1:=x-1-k1;
    If (y1-1) mod 3=0
    then begin
         k2:=(y1-1) div 3;
         y2:=y1-1-k2;
         If (y2-1) mod 3=0
         then Begin
              k3:=(y-1) div 3;
              y3:=y2-1-k3;
              write(y3:4);
              Writeln('Поймали: ', x:3, '1-ый унес ', k1, '2-ой унес ', k2, '3-ий унес ', k3);
              inc(z);
              End;
          End;
     END;
    inc(x);
    Until (z<>N); 


[Renge]

никто не поможет найти ошибку?

[Vago]

Сообщение от Renge

программа не выводит ничего.

    ...
    Until (z<>N);
    ...

Здесь в Паскале условие выхода из цикла, насколько я помню, пишется. Первое x = 3 - не то (ничего и не напечатали); z (0) не равно N (3) - условие в Until выполнилось - всё. Вышли.

Ну и вот здесь

              k3:=(y-1) div 3;

y2, по-моему, должно быть.

[Renge]

Сообщение от Vago

y2, по-моему, должно быть.

да, точно, это опечатка.

Сообщение от Vago

Здесь в Паскале условие выхода из цикла, насколько я помню, пишется. Первое x = 3 - не то (ничего и не напечатали); z (0) не равно N (3) - условие в Until выполнилось - всё. Вышли.

Спасибо огромное, то-то я не заменила. Все заработало*