Проблема с перегруженной подпрограммой

[axpehuct123]

Задача такова, дан массив нужно отсортировать(сортировка пока еще не сделана) и найти сумму элементов главной диагонали. Проблема в том что выскакивает ошибка "Нет перегруженной подпрограммы с такими типами параметров" В чем я ошибся? Работаю в abc pascal

p.s я так понял после создания темы менять ее название нельзя. Извиняюсь что не указал язык.

PROGRAM QQ;
USES CRT;
CONST 
  N=52;
  M=52;
TYPE 
  Ar = Array[1..N, 1..M] OF CHAR;
VAR 
  Sr, St, I, J, K, PR: INTEGER;   
  A : Ar;
  Z : CHAR;
  
  
{========ВВОД МАССИВА========} 
PROCEDURE VVOD(VAR X : Ar);
VAR I, J :INTEGER;
BEGIN
  WRITELN('ВВЕДИТЕ КОЛ-ВО СТРОК');
  READLN(St);
  WRITELN('ВВЕДИТЕ КОЛ-ВО СТОЛБЦОВ');
  READLN(Sr);
  WRITELN('ВВЕДИТЕ ЭЛЕМЕНТЫ МАССИВА');
  FOR I:=1 TO St DO
  FOR J:=1 TO Sr DO 
  READLN(X[I,J]);
END;

{========ВЫВОД МАССИВА========}
PROCEDURE VIVOD(Y : Ar );
VAR I, J : INTEGER;
BEGIN
  FOR I := 1 TO Sr DO                    
    BEGIN                                   
      FOR J := 1 TO St DO                 
        WRITE(Y[I,J],'  ');               
      WRITELN;                            
    END;
END;
  
{========СУММА========} 
FUNCTION SUMMA(H : Ar): REAL;
VAR I,J : INTEGER;
    SUM : STRING;
BEGIN
  FOR I:=1 TO Sr DO                      
    BEGIN
      FOR J:=1 TO St DO                    
        IF I=J
          THEN 
            SUM := SUM + H[I,J];   
    END;   
END;

{========ТЕЛО========}
BEGIN
  VVOD(A);
  VIVOD(A);
  WRITELN(SUMMA);
END.

[ZX Spectrum-128]

А в какой конкретно строке компилятор выдает ошибку?

[Аватар]

Дык в строке WRITELN(SUMMA); и выдает

[ZX Spectrum-128]

Дык да.
Спасибо, дал в репу
Автору:
Исправьте на writeln(summa(a));

[axpehuct123]

Спасибо большое. Ошибка исправлена. Только теперь нужно разобраться, потому что сумму не считает.

[ZX Spectrum-128]

PROGRAM QQ;
USES CRT;
CONST 
  N=52;
  M=52;
TYPE 
  Ar = Array[1..N, 1..M] OF integer;
VAR
  Sr, St, I, J, K, PR: INTEGER;   
  A : Ar;
  Z : CHAR;


{========ВВОД МАССИВА========}
PROCEDURE VVOD(VAR X : Ar);
VAR I, J :INTEGER;
BEGIN
  WRITELN('ВВЕДИТЕ КОЛ-ВО СТРОК');
  READLN(St);
  WRITELN('ВВЕДИТЕ КОЛ-ВО СТОЛБЦОВ');
  READLN(Sr);
  WRITELN('ВВЕДИТЕ ЭЛЕМЕНТЫ МАССИВА');
  FOR I:=1 TO St DO
  FOR J:=1 TO Sr DO
  READLN(X[I,J]);
END;

{========ВЫВОД МАССИВА========}
PROCEDURE VIVOD(Y : Ar );
VAR I, J : INTEGER;
BEGIN
  FOR I := 1 TO St DO
    BEGIN
      FOR J := 1 TO Sr DO
        WRITE(Y[I,J],'  ');
      WRITELN;
    END;
END;

{========СУММА========}
FUNCTION SUMMA(H : Ar): REAL;
VAR I,J : INTEGER;
    SUM : real;
BEGIN
  sum:=0;
  FOR I:=1 TO St DO
    BEGIN
      FOR J:=1 TO Sr DO
        IF I=J
          THEN
            SUM := SUM + H[I,J];
    END;
  summa:=sum;  
END;

{========ТЕЛО========}
BEGIN
  VVOD(A);
  VIVOD(A);
  WRITELN(SUMMA(a));
END.