Вывести на экран в виде таблицы по три элемента из каждого упорядоченного массива.

program tr_v2;
 uses crt;
 type Ar=array[1..4,1..16] of string;
 var i,j,k,l,m,n,s,c,q,a,b,x:byte;
     s1:real;
     ss:Ar;
     st,buf:string;
     fl,fl2:boolean;
     st1:string[3];
     st2:string[10];
     t1,t2,e:integer;
 
 begin
 
clrscr;
 
 fl:=true;
 repeat
  begin
   writeln('Введите количество дней');
    readln(m);
     writeln('введите количество каналов');
      readln(n);
  if (m<0) or (m>4) or ((n*4)<0) or ((n*4)>16) then writeln('Ввод неверен, повторите ввод')
   else fl:=false;
 
  end
 until fl=false;
 
 
 for i:=1 to m do
  begin
   k:=n;
   for j:=1 to (n*4) do
      begin
      writeln('Ввод данных для',(k div n),'  ','канала');
      k:=k+1;
       str(j,st1);
       insert(st1,ss[i,j],3);
       ss[i,j][3]:=' ';
       writeln('введите через пробел: название передачи, продолжительность передачи, тему передачи');;
       readln(ss[i,j]);
    end;
  end;
 
s:=0;
 
 for i:=1 to m do
  begin
   for j:=1 to (n*4) do
    begin
     k:=1;
     l:=0;
     fl:=true;
      repeat
       begin
 
     if ss[i,j][k]=' ' then
       l:=l+1;
         k:=k+1;
     if l=2 then
      begin
     if ss[i,j][k]='m' then
      begin
       s:=s+1;
       fl:=false;
      end
       else
        fl:=false;
      end;
 
    end
      until fl=false;
 
   end;
    end;
s1:=s/(m*n*4);
 writeln(s);
 writeln(s1:10:4);
 readln;
{‘®авЁа®ўЄ*}
  q:=0;
 
 for i:=1 to m do
  begin
   q:=q+1;
   for j:=1 to (q*4) do
    begin
     k:=1;
     l:=0;
     fl:=true;
     fl2:=true;
      repeat
       begin
 
     if ss[i,j][k]=' ' then
      begin
       l:=l+1;
      end;
         k:=k+1;
     if l=2 then
      begin
     if ss[i,j][k]='m' then
      begin
       s:=s+1;
       fl:=false;
      end
       else
        fl:=false;
      end;
 
    end
      until fl=false;
 
   if s<s1 then
    begin
     repeat
      begin
     k:=1;
     l:=0;
     fl:=true;
      repeat
       begin
 
     if ss[i,j][k]=' ' then
      begin
        a:=k;
        l:=l+1;
      end;
      k:=k+1;
     if l=2 then
      begin
       b:=k;
       k:=1;
     for  x:=a to b do
      begin
       st2[k]:=ss[i,j][x];
        k:=k+1;
 
 
       end;
 
        fl:=false;
      end;
 
    end
      until fl=false;
     val(st2,t1,e);
{„«п ўв®а®Ј®\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
    repeat
       begin
 
     if ss[i,j+1][k]=' ' then
      begin
        a:=k;
        l:=l+1;
      end;
      k:=k+1;
     if l=2 then
      begin
       b:=k;
       k:=1;
     for  x:=a to b do
      begin
       st2[k]:=ss[i,j+1][x];
        k:=k+1;
 
 
       end;
 
        fl:=false;
      end;
 
    end
      until fl=false;
     val(st2,t2,e);
   if t2>t1 then
    begin
       buf:=ss[i,j];
       ss[i,j+1]:=ss[i,j];
       ss[i,j]:=buf;
 
    end;
     end
     until fl2=false;
   end;
 
   end;
    end;
 
for i:=1 to m do
  begin
  j:=1;
   repeat
    begin
    if (j mod 4)=0 then j:=j+1;
     writeln(ss[i,j]);
      j:=j+1;
 
   end
  until j=16;
 end;
end.