пожалуйста помогите.Составить в паскале программу:
Вводится целое число С. Если -9<=C<=9 вывести величину числа в словес ной форме с учетом знака, в противном случае - предупреждающее сообщение и повторный ввод.

Спасибо большое)

Пожалуйста)

Обращайтесь))

var  c:shortint;begin  while true do  begin    Write('Введите число от -9 до 9: ');    Readln(c);    if (c>=-9) and (c<=9) then break;    Writeln('Неверный ввод')  end;  if c<0 then  begin    Write('минус ');    c:=-c;  end;  case c of  0:Writeln('ноль');  1:Writeln('один');  2:Writeln('два');  3:Writeln('три');  4:Writeln('четыре');  5:Writeln('пять');  6:Writeln('шесть');  7:Writeln('семь');  8:Writeln('восемь');  9:Writeln('девять')  endend.