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

[Romario]

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

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

[Ivs]

Код

{Program N_20;
uses crt;
var
  s,t,s1:string;
  i,k,h,j:integer;
  a:array[1..100] of string;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  i:=1;j:=1;
  while i<=length(s) do
  begin
     t:='';
     while (s[i]<>' ') and (i<=length(s)) do
     begin
      t:=t+s[i];
      i:=i+1;
     end;
     a[j]:=t;
     j:=j+1;
     i:=i+1;
  end;
  h:=j-1;
  for i:=1 to h-1 do
  begin
     k:=1;
     if a[i]<>'' then
     begin
       for j:=i+1 to h do
          if a[i]=a[j] then
          begin
           k:=k+1;
           a[j]:='';
          end;
       writeln(a[i],' -> ',k);
     end;
  end;
  readln;
end.}

{Program N_21;
uses crt;
var
  s1,t,s2:string;
  i,j,k,h:integer;
  a,b:array[1..100] of string;
begin
  ClrScr;
  write('Input string 1 -> ');readln(s1);
  i:=1;j:=1;
  while i<=length(s1) do
  begin
     t:='';
     while (s1[i]<>' ') and (i<=length(s1)) do
     begin
      t:=t+s1[i];
      i:=i+1;
     end;
     a[j]:=t;
     j:=j+1;
     i:=i+1;
  end;
  k:=j-1;
  write('Input string 2 -> ');readln(s2);
  i:=1;j:=1;
  while i<=length(s2) do
  begin
     t:='';
     while (s2[i]<>' ') and (i<=length(s2)) do
     begin
      t:=t+s2[i];
      i:=i+1;
     end;
     b[j]:=t;
     j:=j+1;
     i:=i+1;
  end;
  h:=j-1;
  for i:=1 to k do
     for j:=1 to h do
      if a[i]=b[j] then begin writeln(a[i]);break;end;
  readln;
end.}

{Program N_22;
uses crt;
var
  s,t,s1,str:string;
  i,k,j:integer;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  i:=1;
  while i<=length(s) do
  begin
     t:='';
     while (s[i]<>' ') and (i<=length(s)) do
     begin
      t:=t+s[i];
      i:=i+1;
     end;
     k:=k+1;
     if k mod 2=0 then str:=str+' '
     else
     begin
      s1:='';
      for j:=length(t) downto 1 do s1:=s1+t[j];
      str:=str+s1;
     end;
     i:=i+1;
  end;
  write('OutPut -> ',str);
  readln;
end. }

{Program N_23}
{Poka Net!}

{Program N_24;
uses crt;
var
  s1,t,s2:string;
  i,j,k,h,max:integer;
  a,b:array[1..100] of string;
begin
  ClrScr;
  write('Input string 1 -> ');readln(s1);
  i:=1;j:=1;
  while i<=length(s1) do
  begin
     t:='';
     while (s1[i]<>' ') and (i<=length(s1)) do
     begin
      t:=t+s1[i];
      i:=i+1;
     end;
     a[j]:=t;
     j:=j+1;
     i:=i+1;
  end;
  k:=j-1;
  write('Input string 2 -> ');readln(s2);
  i:=1;j:=1;
  while i<=length(s2) do
  begin
     t:='';
     while (s2[i]<>' ') and (i<=length(s2)) do
     begin
      t:=t+s2[i];
      i:=i+1;
     end;
     b[j]:=t;
     j:=j+1;
     i:=i+1;
  end;
  h:=j-1;
  max:=0;
  for i:=1 to k do
     for j:=1 to h do
      if a[i]=b[j] then
         if length(a[i])>max then begin max:=length(a[i]);t:=a[i] end;
  if max<>0 then write('OutPut -> ',t) else write('No correct data!!!');
  readln;
end.}