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

[Romario]

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

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

[AlaRic]

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

22. Сформировать файл, имеющий следующую структуру
type знакомый=record фамилия:string;
номертел:10000..99999;
адрес:string;
end;
и определить:
o      есть ли в книжке телефон данного человека;
o      кому принадлежит данный телефон;
o      список людей, живущих на данной улице
...

Код

program number21;
const n=5;
type book=record
avtor:string;
name:string;
year:integer;
pub:string;
str:integer;
end;
var
mas:array[1..n] of book;
avtor2,pub2,avt:string;
pages,years,i:integer;
file1:file of book;
begin
assign(file1, 'C:Files2.txt');
rewrite(file1);
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;
writeln('фамилия автора'); readln(avt);
for i:=1 to n do
if avt=mas[i].avtor then writeln('книги есть');
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;
writeln('издатель,автор,год');
readln(pub2); readln(avtor2); readln(years);
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;
close(file1);
end.


program number22;
const n=5;
type friend=record
familia:string[20];
number:10000..99999;
adres:string;
end;
var
sup:array[1..n] of friend;
teleph,spisok:string;
i:integer;
teleph2:longint;
file1:file of friend;
begin
assign(file1, 'C:Files.txt');
rewrite(file1);
for i:=1 to n do
begin
writeln('фамилия'); readln(sup[i].familia);
writeln('телефон'); readln(sup[i].number);
writeln('адрес'); readln(sup[i].adres);
write(file1,sup[i]);
end;
writeln('ввести нужную фамилию'); readln(teleph);
for i:=1 to n do
if teleph=sup[i].familia then writeln(sup[i].number);
writeln('ввести нужный телефон'); readln(teleph2);
for i:=1 to n do
if teleph2=sup[i].number then writeln(sup[i].familia);
writeln('ввести нужную улицу'); readln(spisok);
for i:=1 to n do
if spisok=sup[i].adres then writeln(sup[i].familia);
close(file1);
end.