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

[Romario]

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

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

[AlaRic]

19. Сформировать файл, имеющий следующую структуру
type преподаватель=record фамилия:string;
предмет:string;
факультет:string;
курс:1..5;
количество часов:integer;
end;
и определить:
o      преподавателя имеющего самую большую нагрузку;
o      список предметов, которые читает данный преподаватель;
o      объем часов на данном факультете и данном курсе.

Код

program number19;
const n=5;
type prep=record
fam:string;
clas:string;
fak:string;
curs:1..5;
hour:integer;
end;
var
mas:array[1..n] of prep;
fam2,fak2:string;
grus,curs2,grus1,summa,i:integer;
file1:file of prep;
begin
assign(file1, 'C:Files3.txt');
rewrite(file1);
for i:=1 to n do
begin
writeln('фамилия'); readln(mas[i].fam);
writeln('предмет'); readln(mas[i].clas);
writeln('факультет'); readln(mas[i].fak);
writeln('курс'); readln(mas[i].curs);
writeln('часы'); readln(mas[i].hour);
write(file1,mas[i]);
end;
grus:=mas[1].hour;
for i:=2 to n do
if grus1<mas[i].hour then
grus1:=mas[i].hour;
writeln(mas[i].fam, ' - самый загруженный',grus1,' часов');
writeln('фамилия препода'); readln(fam2);
for i:=1 to n do
if fam2=mas[i].fam then
writeln(' ведет ',mas[i].clas);
writeln('факультет и курс'); readln(fak2); readln(curs2);
summa:=0;
for i:=1 to n do
if (fak2=mas[i].fak) and (curs2=mas[i].curs) then
summa:=summa+mas[i].hour;
writeln('кол-во часов: ',summa);
close(file1);
end.