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

#include < iostream> char function_name(char *s){    char arr[256]{0};           for (char * p = s; *p; ++p)        arr[*p+128]++;     char * max = arr;     for (char * p = arr; p < (arr + 256); ++p){        if (*p > *max) max = p;     }    return (max - arr) - 128; }int main(){    char buff[255];     std: : cin.getline(buff,255);     std: : cout < < buff < < " : " < < function_name(buff);     return 0; }

program choice;

var i,j,c,d: integer;

        a: array[1..10] of integer;

begin

for i: =1 to 10 do

      read(a[i]);

for i: =1 to 10 do begin

      c: =-10000;

      for j: =i to 10 do

              if a[j]> c then begin

              c: =a[j];

              d: =j

              end;

      a[d]: =a[i];

      a[i]: =c;

      end;

for i: =1 to 10 do

      writeln(a[i]);

end.