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

[Romario]

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

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

[trminator]

У тебя там в проверке in... были скобки пропущены. И еще: пожалуйста, перекодируй программу и ставь флажок "Пометьте это, если вы будете добавлять код (JS, например), или не любите смайлики"

Вот твоя программа. Она работает  :D

Код

uses
crt;
type
data = record
  day: 1..31;
     month: 1..12;
 year: 1980..1990;
end;

anketa = record
  surname: string;
      sex: char;
    birth: data;
end;

const
n = 2;

label
1,2,3,4,5;

var
d: array[1..n] of data;
a: array[1..n] of anketa;
m: set of 1..12;
i,m1,j: integer;
ch: string;
Mold: integer;

begin

  clrscr;

  for i:=1 to n do
   begin
  writeln;
  writeln;
  writeln;
  write('  ',i,'.1) Input surname -> ');
  readln(a[i].surname);
    1: write('  ',i,'.2) Input sex -> ');
  readln(a[i].sex);
   if not (a[i].sex in ['W','w','m','M']) then
     begin
     write(a[i].sex,' Input W, w, M or m');
     writeln;
     goto 1;
     end;
   writeln('  ',i,'.3) Birthday : ');
    2: write('      Input month -> ');
  readln(d[i].month);
   if (d[i].month>12)or(d[i].month<1) then
    begin
    write('      There is 12 months in year but not ',d[i].month,' ');
    writeln;
    goto 2;
    end;
    3: write('      Input day -> ');
  readln(d[i].day);
   if (d[i].month = 2)and((d[i].day>2)or(d[i].day<1)) then
    begin
    write('      д?ўа <? ўб??R 28 ¤-?c!');
    writeln;
    goto 3;
    end;
   if not (d[i].month = 2)and((d[i].day>31)or(d[i].day<1)) then
      begin
      write('      This month has 31 day!');
      writeln;
      goto 3;
      end;
    4: write('      Input year -> ');
  readln(d[i].year);
   if (d[i].year<1950)or(d[i].year>2000) then
    begin
    write('     !!! Input between 1950-2000      !!!');
    writeln;
    goto 4;
    end;
  clrscr;
 end;

writeln;
write('_________________________________________________________________ _______________');
write('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~');
for i:=1 to n do
begin
writeln('----------------------------------|',i,'-st record|---------------------------------');
writeln(' Surname: ',a[i].surname);
writeln('     Sex: ',a[i].sex);
writeln('Birthday: ',d[i].day,' / ',d[i].month,' / ', d[i].year);
end;

  Mold:=2001;
   for i:=1 to n do
    begin
if (a[i].sex='m')or(a[i].sex='M') then
 if d[i].year < Mold then Mold:=d[i].year;
    end;

  writeln;
  writeln(' Oldest man is -> ',2003-Mold,' years old');
  write('Searchin surname. Input : ');
  readln(ch);
  write('Surnames -  ',ch,': ');

   for i:=1 to n do
    if a[i].surname = ch then write(a[i].surname,' ');

  writeln;
  5: write('Input month: ');
readln(m1);
 if (m1<1)or(m1>12) then begin
    writeln('Input correctly!');
   goto 5;
   end
   else
   write('Searching for birthday in ',m1,'month: ');

   for i:=1 to n do
    if d[i].month = m1 then write(a[i].surname,' ');

  readln;

end.