Вычислить среднее арифметическое кодов элементов главной диагонали символьной матрицы

type
  matrix = ARRAY[1..30, 1..30] OF CHAR;
 
var
  A: matrix;
  N, M, I, J, K: INTEGER;
 
procedure sort(var x: matrix; n, m: integer);
var
  i, k, j: integer;
  TEMP: CHAR;
begin
  for I := 1 TO n DO
  begin
    for K := 1 TO M - 1 DO
      for J := K TO M DO
        if x[I, K] > x[I, J] THEN
        begin
          TEMP := x[I, K];
          x[I, K] := x[I, J];
          x[I, J] := TEMP;
        end;
  end;
end;
 
function average(x: matrix; n: integer): real;
var
  SUM: REAL;
  j, i: integer;
begin
  SUM := 0;
  for I := 1 TO N DO
    for J := 1 TO M DO
      if I = J THEN
        SUM := SUM + ORD(x[I, J]);
  SUM := SUM / N;
  average := sum;
end;
 
begin
  WRITE('Vvedite kilishestvo strok N=');
  READLN(N);
  WRITE('Vvedite kolishestvo stolbsov M=');
  READLN(M);
  WRITELN('Vvedite ', N * M, ' Bukv');
  for I := 1 TO N DO
    for J := 1 TO M DO
      READ(A[I, J]);
  sort(a, n, m);
  for I := 1 TO N DO
  begin
    for J := 1 TO M DO
      WRITE(A[I, J]);
    WRITELN;
  end;
  WRITELN('Srednee arifmetisheskoe kodov po glavnoi diagonali = ', average(a, n):6:2);
end.