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

[Romario]

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

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

[Ivs]

Далее.........

Код

{Program N_12;
uses crt;
var
  s,t,s2:string;
  i,N,k,m:integer;
  b:boolean;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  write('Input Number -> ');readln(N);
  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=N then begin writeln('OutPut -> ',t);m:=length(t);s2:=t;b:=true;break end;
     i:=i+1;
  end;
  if not(b) then write('Number > word')
  else begin
     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;
      if t<>s2 then
         if length(t)=m then writeln(t);
      i:=i+1;
     end;
  end;
  readln;
end. }

{Program N_13;
uses crt;
var
  s,t:string;
  ch:char;
  i,k:integer;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  write('Input char -> ');readln(ch);
  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;
     if t[length(t)]=ch then k:=k+1;
     i:=i+1;
  end;
  write('OutPut -> ',k);
  readln;
end.}

{Program N_14;
uses crt;
var
  s,str:string;
  i1,i2,j,i:integer;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  i1:=0;i2:=0;
  i1:=pos('(',s);
  for j:=length(s) downto i1+1 do
     if s[j]=')' then begin i2:=j;break end;
  if (i1=0) or (i2=0) then write('Not correct data!')
  else begin
     str:=Copy(s,i1+1,(i2-i1)-1);
     write('OutPut -> ',str);
  end;
  readln;
end.}

{Program N_15;
uses crt;
var
  s:string;
  i,k,max:integer;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  i:=1;max:=0;
  while i<=length(s) do
  begin
     k:=0;
     while (s[i]='a') and (i<=length(s)) do
     begin
      k:=k+1;
      i:=i+1;
     end;
     if k>max then max:=k;
     i:=i+1;
  end;
  write('Max ''a'' -> ',max);
  readln;
end.}

{Program N_16;
uses crt;
var
  s,t:string;
  ch:char;
  i,k,j:integer;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  write('Input char -> ');readln(ch);
  writeln('OutPut: ');
  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;
     j:=1;
     while j<=length(t) do
     begin
      if t[j]=ch then begin writeln(t);break end;
      j:=j+1;
     end;
     i:=i+1;
  end;
  readln;
end. }

{Program N_17;
uses crt;
var
  s,t,s2:string;
  i: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;
     if length(t)>3 then
      if (t[length(t)-2]+t[length(t)-1]+t[length(t)])='ing' then
      begin
         delete(t,length(t)-2,3);
         insert('ed',t,length(t)+1);
      end;
     s2:=s2+t+' ';
     i:=i+1;
  end;
  write('OutPut -> ',s2);
  readln;
end. }

{Program N_18;
uses crt;
var
  s,t,s2:string;
  i,j,k: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;
  k:=j-1;
  for i:=2 to k do
     for j:=i-1 downto 1 do
      if a[i]=a[j] then a[j]:='';
  for i:=1 to k do write(a[i],' ');

  readln;
end.}

{Program N_19;
uses crt;
var
  s,t,s2,m,s1:string;
  i,k,max: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;
     if length(t) mod 2=0 then
     begin
      k:=length(t) div 2;
      s1:=copy(t,1,k);
      s2:=copy(t,k+1,k);
      if s1=s2 then
         if length(t)>max then begin max:=length(t);m:=t;end;
     end;
     i:=i+1;
  end;
  write('Very long simmetric word: ',m);
  readln;
end.}