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

program z1;
type str=string[79];
mas=array[1..100,1..150] of str;
kanal=array[1..100] of byte;
var a:mas; kol:kanal;
i,n:byte;
procedure vvod(var a:mas; var kol:kanal; var n:byte);
var i,j,k:byte;
s:str;
begin
write('n='); readln(n);
for i:=1 to n do begin
write('число программ в ',i,' -ом канале');
readln(kol[i]);
for j:=1 to kol[i] do begin
for k:=1 to 79 do a[i,j][k]:=' ';
a[i,j][0]:=chr(79);
write('название'); readln(s);
insert(s,a[i,j],1);
write('продалжительность'); readln(s);
insert(s,a[i,j],25);
write('тема'); readln(s);
insert(s,a[i,j],30);
end;
end;
end;
procedure sred( var a:mas; var kol:kanal; n,t:byte);
var p,k,i,j:byte;
begin
k:=0; 
for i:=1 to n do
for j:=1 to kol[i] do begin
p:=pos('музыка',a[i,j]);
if p>0 then k:=k+1;
end;
t:=k/n;
end;
procedure sort(var a:mas; var kol:kanal; n,t:byte);
var p,i,j,c,m,z,x:byte; buf,s:str; fl:boolean; 
begin
 for i:=1 to n do begin
  j:=1;
  while j<=kol[i] do begin
   p:=pos('музыка',a[i,j]);
   if p>0 then c:=c+1; if j=kol[i] and c<sred then begin
    for j:=1 to kol[i] do
    begin s:=copy(a[i,j],25,5);
    m:=length(s);
    while(m>0) and (s[m]=' ') do m:=m-1;
    z:=chr(m);
    for j:=1 to kol[i]-1 do
    begin s:=copy(a[i,j+1],25,5);
    m:=length(s);
    while(m>0) and (s[m]=' ') do m:=m-1;
    x:=chr(m);
    fl:=true;
    while fl do begin
     fl:=false;
     for j:=1 to kol[i]-1 do
     if z>x then begin
      buf:=a[i,j];
      a[i,j]:=a[i,j+1];
      a[i,j+1]:=buf;
      end; 
     end; 
    end; 
   end else j:=j+1;
  end; 
end;
end; end;
procedure vyvod(var a:mas; n:byte);
var i:byte;
begin
for i:=1 to n do
writeln(a[i]);
end;
begin
vvod(a,n);
sred(a,n,t);
sort(a,n,t);
vyvod(a,n);
end.