Алгоритма «не могу» и « не понимаю «

Рисунок во вложении. Вместо номеров с 1 по 7 надо вписать следующее:
1. "Раздели монеты на кучки 2 + 2 + 1 и положи на весы две первые кучки (по одной кучке на каждую чашечку)"
2. "Весы в равновесии?"
3. "Монета из третьей кучки - золотая"
4. "Возьми монеты из той кучки, что тяжелее, и положи их на весы (по одной на каждую чашечку)"
5. "Левая монета тяжелее?"
6. "Монета на левой чашечке - золотая. Возьми её и купи почтальону Печкину велосипед"
7. "Монета на правой чашечке - золотая. Возьми её и купи почтальону Печкину велосипед"

Вроде так:

var b, c: integer;
begin
  Writeln('Введите ваш возраст');
  Readln(b);
  if b <= 0 then WriteLn('Вам 0 лет')
      else begin
         c := b mod 100;
         if (c >= 10) and (c <= 20) then WriteLn('Вам ', b, ' лет')
         else
            case (b mod 10) of
               1: WriteLn('Вам ', b, ' год');
               2..4: WriteLn('Вам ', b, ' года');
               5..9, 0: WriteLn('Вам ', b, ' лет')
              end;
   end;
 Writeln('Для выхода нажмите <Enter>');
 Readln;
end.