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

[Romario]

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

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

[AlaRic]

3) Не объсянит ли мне автор эти строки:
for i:=1 to n do
if (pub2=mas[i].pub) and (avtor2=mas[i].avtor) and (years<mas[i].year) then
begin
for i:=1 to n do
write(mas[i].name,' ');
end;
Не могу понять... ввожу верные данные, но он ничего не выводит ((((((

Найти название книг данного автора, изданных с указанного года в данном издательстве!

Что означает в этом цикле:

for i:=1 to n do
begin
writeln('автор'); readln(mas[i].avtor);
writeln('книга'); readln(mas[i].name);
writeln('год'); readln(mas[i].year);
writeln('издатель'); readln(mas[i].pub);
writeln('страницы'); readln(mas[i].str);
write(file1,mas[i]);
end;

Строка write(file1,mas[i]);

Запись в файл массива данных типа book!