Помогите решить задачу на циклы.

k := 27;
n := k / 3;
while( n>3 ) do
  n := n / 3;
t := (n = 3);

Program xxx;
uses
  crt;
const
  m=10;           {Размерность}
  n=9;
var
  i,s,x,j,k,p: integer;
  c: array [1..m] of integer;
  t: array [1..n] of integer;
begin
  clrscr;
  s:=0;
  randomize;                 {Заполнение массивов случайными числами}
  for i:= 1 to m do
    c[i]:=random(10);
  for i:= 1 to n do
    t[i]:=random(10);
  for i:= 1 to m do
    s:=s+c[i];
  k:=s div m;
  writeln;
  writeln('srednee arifmeticheskoe C: ',k);      {Вывод ср. арифм. массива С}
  s:=0;
  for i:= 1 to n do
    s:=s+t[i];
  j:=s div n;
  writeln('srednee arifmeticheskoe T: ',j);      {Вывод ср. арифм. массива Т}
 
  if k>j then                                            
  begin                                  {Сортировка}
    for i:= 1  to m-1 do
      for j:= i+1 to m do
      begin
        if c[i]>c[j] then
        begin
          p:=c[i];
          c[i]:=c[j];
          c[j]:=p;
        end; 
      end;
    for i:= 1  to n-1 do
      for j:= i+1 to n do
      begin
        if t[i]<t[j] then
        begin
          x:=t[i];
          t[i]:=t[j];
          t[j]:=x;
        end;
      end;
   end;
 
   if k=j then
     for i:= 1 to m do
       c[i]:=c[i]+5;
   for i:= 1 to m-1 do
     for j:=i+1 to m do
     begin
       if c[i]>c[j] then
       begin
         p:=c[i];
         c[i]:=c[j];
         c[j]:=p;
       end;
     end;
 
  writeln('Massiv C: ');    {Вывод отсортированных массивов}
  for i:= 1 to m do
    write(c[i]:2);
  writeln;
  writeln('Massiw T : ');
  for i:= 1 to n do
    write(t[i]:2);
  readkey;
end.