Определить на станции №5 виды услуг наибольшего и наименьшего объема

program v_10zad1;
//uses crt;
const N=4;
type mas=array[1..N,1..6]of integer;
var
    a:mas; i,j:byte;
BEGIN
    randomize;
 
    writeln('UCXODHUY MACCUB');
    writeln;
 
    for i:=1 to N do
        begin
            for j:=1 to 6 do
                begin
                    a[i,j]:=random(30*10)+50;
                    write(a[i,j]:5);
                end;
            writeln;
        end;
        writeln;
 
END.

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.