Двумерные массивы. Вывести названия видов услуг по убыванию объемов

program v_30zad1;
//uses crt;
const N=4;
type mas=array[1..N,1..6]of integer;
var
a:mas; i,j:byte;
procedure ServicesDescending(m:mas);
  type services=array[1..6] of integer; //объем услуг по всем станциям (сумма столбцов массива)
       servName=array[1..6] of string; //наименование услуг
    var i,j:byte; s:integer;
        ser:services; 
        serName:servName; 
    begin
      
      writeln('Список названия видов услуг по убыванию объемов');
      writeln;
    
      serName[1]:='телефония';
    serName[2]:='поиск документов';
    serName[3]:='цветной факс';
    serName[4]:='передача файлов';
    serName[5]:='видеотелефония';
    serName[6]:='поиск видео';
      for j:=1 to 6 do //нахожу суммы и их в новый массив
        begin
          s:=0;
            for i:=1 to N do
                begin 
                  s:=s+m[i,j]; 
                end;
                ser[j]:=s;
     end;       
      for j:=1 to 6-1 do // сортировка по убыванию
        begin
         for i:=1 to 6-j do
          if ser[i] < ser[i+1] then
            begin
             swap(ser[i],ser[i+1]);
             //writeln(ser[i],' - ',serName[i]);
            end;
        end;
        
     
                for j:=1 to 6 do // вывод отсортированного массива
                    begin
                        writeln(ser[j]); //как тут писать, например "165 - поиск документов" ?
                    end;
                    
        
        
end;
 
BEGIN
    randomize;
    writeln('исходный массив');
    writeln();
    for i:=1 to N do
        begin
            for j:=1 to 6 do
                begin
                    a[i,j]:=random(30*30)+50;
                    write(a[i,j]:5,'|');
                end;
                    write(' - станция ',i);
          writeln;
          writeln('--------------------------------------');
        end;
        writeln;
    ServicesDescending(a);
END.

program v_30zad1;
const n=7;
      k=30;
      p=6;
type mas=array[1..n,1..p]of integer;
procedure ServicesDescending(m:mas);
var ser:array[1..p] of integer; //объем услуг по всем станциям (сумма столбцов массива)
    serName:array[1..p] of string; //наименование услуг
    i,j:byte;
    s:integer;
begin
writeln('Список названия видов услуг по убыванию объемов');
writeln;
serName[1]:='телефония';
serName[2]:='поиск документов';
serName[3]:='цветной факс';
serName[4]:='передача файлов';
serName[5]:='видеотелефония';
serName[6]:='поиск видео';
for j:=1 to p do //нахожу суммы и их в новый массив
 begin
  ser[j]:=0;
  for i:=1 to n do
  ser[j]:=ser[j]+m[i,j];
 end;
for j:=1 to p-1 do // сортировка по убыванию
for i:=1 to p-j do
if ser[i]<ser[i+1] then
 begin
  swap(ser[i],ser[i+1]);
  swap(serName[i],serName[i+1]);
 end;
for j:=1 to p do // вывод отсортированного массива
writeln(ser[j],' - ',serName[j]);
end;
var a:mas;
    i,j:byte;
begin
randomize;
writeln('исходный массив');
for i:=1 to n do
 begin
  write('|');
  for j:=1 to p do
   begin
    a[i,j]:=random(30*k)+50;
    write(a[i,j]:5,'|');
   end;
  write(' - станция ',i);
  writeln;
  writeln('--------------------------------------');
 end;
writeln;
ServicesDescending(a);
end.