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

[Romario]

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

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

[AlaRic]

1) Как сделать так, чтобы в этом цикле:

writeln('фамилия автора'); readln(avt);
for i:=1 to n do
if avt=mas[i].avtor then writeln('книги есть');

если введена не существующая в базе фамилия, то выдавалась месага Такого автора в базе нет!
Понимаю, что в цикл включать нельзя, потому как он выдаст эту строку столько раз, сколько элементов =)))

if avt=mas[i].avtor then writeln('книги есть') else writeln('Автора нет');

2) Цикл нахождения книги, у которой наибольшее кол-во страниц считаю НЕВЕРНЫМ!

pages:=mas[1].str;
for i:=2 to n do
if pages<mas[i].str then
begin
pages:=mas[i].str;
writeln('книга ',mas[i].name);
end;

Почему цикл начинается со 2-го элемента, а если эта книга 1-й элемент? )))

Потому что мы присвоили pages значение первого элемента, а затем сравниваем это значение с остальными!