пожалуйста помогите.Составить в паскале программку:Вводится целое число С. Если

Var
  c:shortint;
begin
  while true do
  begin
    Write('Введите число от -9 до 9: ');
    Readln(c);
    if (cgt;=-9) and (clt;=9) then break;
    Writeln('Неправильный ввод')
  end;
  if clt;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('девять')
  end
end.