Трудности с задачей ( case of )

[[Adelina]]

Приветствую всех. В общем, задали задание на учёбе, а сама я не очень понимаю как его сделать.
Вот собственно задание :
Вводится число программ N<=10. Напечатать фразу "Я разработал N программ", согласовав слово "программа" с числом N. Предусмотреть ситуацию ввода N<0.
Буду благодарна каждому, кто поможет.
Всем удачного дня.

[Mad_Cat]

if n<0 then writeln('n<0') else begin
case n of
1: o:='у';
2,3,4: о:='ы';
0,5..10: o:=' ';
end;
writeln('я разработал ',n,' программ',o);
end;