Pascal-chyba pri volani procedur

program semestralka_matica;
uses crt;
type matica=array[1..20,1..20] of integer;
     pr=array[1..100] of integer;
var hl_matica:matica;
    m,n:integer;

procedure nacitanie_matice ( i,j:integer);
          begin
          clrscr;
          writeln('Zadajte rozmer matice:');
          writeln ('Pocet stlpcov: ');
          read(n);
          writeln('Pocet riadkov: ');
          read(m);
          If (m<=10) and (n<=10) and (m>=2) and (m>=2) then
             begin for i:=1 to m do
                       for j:=1 to n do
                           begin write('Zadajte cislo, ktore sa bude nachadzat v riadku ', i ,' a v stlpci ', j);
                           read(hl_matica[i,j]);
                           end;
             end;
          end;
procedure vypis_hl_matice (i,j:integer);
          begin
               writeln('Vypis matice:');
               writeln;
               for i:=1 to m do
                   begin for j:=1 to n do writeln(hl_matica[i,j]:8);
                   end;
               readkey;
          end;
procedure riadkove_maximum (s,max,riadok:integer);
          begin
               writeln('V ktorom riadku chcete najst maximum?');
               writeln('Riadok cislo: ');
               readln(riadok);
               if (m>=riadok) then begin
                                        max:=0;
                                        for s:=1 to n do
                                            begin if (hl_matica[riadok,s]>max) then max:=hl_matica[riadok,s];
                                                  writeln('Maximum v riadku cislo ', riadok, 'je: ', max);
                                            end;
                                   end
                              else writeln('Zadaliste zlú hodnotu');
               readkey;
           end;
procedure sucet_diagonal ( i,s_hd,s_vd:integer);
          begin
               s_hd:=0;
               s_vd:=0;
               if (m=n) then begin
                            for i:=1 to n do s_hd:=s_hd+hl_matica[i,i];
                            for i:=n downto 1 do s_vd:=s_vd+hl_matica[i,n-i+1];
                            writeln('Sucet hlavne diagonaly je: ');
                            write(s_hd);
                            writeln;
                            writeln('Sucet vedlajsej diagonaly je: ');
                            write(s_vd);
                            readkey;
                            end;
          end;
procedure nulovanie (var pm_matica:matica; i,j:integer);
          begin
               if (m=n) then begin
                                  pm_matica:=hl_matica;
                                  for i:=1 to n do for j:=i+1 to n do pm_matica[i,j]:=0;
                                  for i:=n downto 1 do for j:=n downto (n-i+1) do pm_matica[i,j]:=0;
                                  writeln('Povodna matica je:');
                                  vypis_hl_matice(m,n);
                                  writeln('Nova matica po vynulovani je:');
                                  writeln('Vypis matice:');
                                  writeln;
                                  for i:=1 to n do begin for j:=1 to n do writeln(pm_matica[i,j]:8);
                                                   end;
                             end
                        else writeln('Matica nema rozmer vhodny na nulovanie podla diagonal.');
              writeln('Porkacujte stlacenim lubovolnej klavesy...');
              readkey;
          end;
procedure triedenie_vzostupne (var pm_matica:matica ; p_riadok:pr; i,j,r,b:integer  );
          begin
               pm_matica:=hl_matica;
               r:=0;
               for i:=1 to m do
                               begin
                               for j:=1 to n do begin
                                               r:=r+1;
                                               p_riadok[r]:=pm_matica[i,j];
                                               end;
                               end;
               for i:=2 to r do begin
                                     for j:=r  downto i do begin
                                                           if p_riadok[j-1]>p_riadok[j] then begin
                                                                                             b:=p_riadok[j-1];
                                                                                             p_riadok[j-1]:=p_riadok[j];
                                                                                             p_riadok[j]:=b;
                                                                                             end;
                                                           end;
               r:=0;
               for i:=1 to m do
                               begin
                                    for j:=1 to n do begin
                                                          r:=r+1;
                                                          pm_matica[i,j]:=p_riadok[r];
                                                     end;
                               end;
               writeln('Povodna matica je:');
               writeln;
               for i:=1 to m do for j:=1 to n do writeln(hl_matica[i,j]);
               writeln('Utriedena matica je:');
               writeln;
               for i:=1 to m do for j:=1 to n do writeln(pm_matica[i,j]);
          end;end;
procedure menu (c:byte);
          begin
               writeln('Menu semestralnej prace Olivera Krisku');
               writeln;
               writeln('1....Nacitanie rozmerov a samostnej matice');
               writeln('2....Vypisanie matice');
               writeln('3....Maximum vo zvolenom riadku');
               writeln('4....Sucet diagonal (len v stvorcovej matici)');
               writeln('5....Nulovanie prvkov podla diagonal (len v stvorcovej matici)');
               writeln('6....Vzostupne utriedenie matice');
               writeln('7....Ukoncenie aplikacie');
               writeln('Zvolte si operaciu: ');
               read(c);
               case c of
                        1: nacitanie_matice(m,n);
                        2: vypis_hl_matice(m,n);
                        3: riadkove_maximum(m,n);
                        4: sucet_diagonal(m,n);
                        5: nulovanie(m,n);
                        6: triedenie_vzostupne(m,n);
                        7: halt;
               end;
          end;




begin
menu(c);
end.