Помогите написать программу. Паскаль

[firm.nice]

Помогите написать программу. Паскаль

Программа вводит произвольную последовательность символов («*» - признак конца ввода)
При вводе раскрасить цифры – зелёным,
маленькие латинские – желтым,
«!» «?» - красным,
а остальные символы сиреневым(5-й цвет).

 

[Vladimir_S]

Программа вводит произвольную последовательность символов («*» - признак конца ввода)
При вводе раскрасить цифры – зелёным,
маленькие латинские – желтым,
«!» «?» - красным,
а остальные символы сиреневым(5-й цвет).

И какие проблемы? Пожалуйста:

Uses CRT;
Var
 C:Char;
Begin
 ClrScr;
 Repeat
  C:=Readkey;
  If Ord(C) in [48..57] then TextColor(2) else
  If Ord(C) in [97..122] then TextColor(6) else
  If (C='!') or (C='?') then TextColor(4) else
  TextColor(5);
  Write(C);
 Until C='*';
 NormVideo;
End.

 

[Vladimir_S]

Запрос от Кэтти перенесен сюда:
http://www.tehnari.ru/f41/t72438/
Эта ТЕМА ЗАКРЫТА