Напечатать фразу, изменив окончание существительного в соответствии с числительным - Pascal ABC

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

Для целого числа N от 1 до 8 напечатать фразу "Мы нашли грибов" согласовав окончание слова "гриб"

Решение задачи: «Напечатать фразу, изменив окончание существительного в соответствии с числительным»

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

var n:integer;
    s:string;
begin
repeat
write('Введите натуральное число от 1 до 8  N = ');
readln(n);
until n in [1..8];
s:='Мы нашли в лесу '+inttostr(n);
case n of
1:s:=s+' гриб';
2..4:s:=s+' гриба';
5..8:s:=s+' грибов';
end;
write(s)
end.

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

В данном коде происходит следующее:

Объявляются две переменные: n и s. Переменная n типа integer, а переменная s типа string.
В цикле repeat-until считывается натуральное число от 1 до 8 с помощью функции readln(n).
В цикле происходит вывод фразы Мы нашли в лесу с добавлением числа n в формате inttostr(n).
С помощью оператора case происходит изменение окончания существительного в зависимости от значения переменной n.
В случае n=1 к фразе добавляется слово гриб, при n=2-4 - гриба, а при n=5-8 - грибов.
Выводится полученная фраза с помощью функции write(s).