Вопросы от Ромарио! Опции

[Romario]

Начинаю серьёзно учить Паскаль и вот решил создать и пихать сюда все неясности, если вы конечно не против
Первые вопросы:

• Как в Паскале менять цвета?
  
• Как  --//-- создать таблицу и что-нить в ней написать.
  
• И может кто-нить меня раздуплит в массивах? ;D

[Romario]

1. Ну например напишу я это так: if not (a[i].sex in ['Ж', 'ж','М','м']) then
  begin
  {...}
  end;  
Ну а в VAR'e мне как и что описывать?
2. readln(a[i].surname);
   for j:=1 to ord(a[i].surname[0]) do
     a[i].surname[j]:=UpCase(a[i].surname[j]);
И все тип топ. И еще, если введено русское имя, то процедура Upcase с ним работать не будет...
Почему с русскими буквами не будет это всё дело работать?