Программа падает при запуске

program a1;
uses crt;
const WG=30;
type tmatr=array[1..WG,1..WG] of real;
var a:tmatr; n,m:byte;
(*prohedura vvoda alementov matrihi*)
procedure pr_wod_matr(var n1,m1:byte; var mas:tmatr);
var i,j:byte; kl:byte;
begin
  writeln('vvedite razmernost matrihi n,m');
  readln(n1,m1);
  writeln('1-vvod sluhainim obrazom, 2-vvod s klavi');
  readln(kl);
  if kl=1 then randomize;
  for i:=1 to n1 do
   for j:=1 to m1 do
    case kl of
    1:mas[i,j]:=random(300);
    2:begin
        writeln('vvedite element',i,' stroki ',j,' stolbha matrihi');
        readln(mas[i,j]);
      end;
  end;
end;
(*prohedura vivoda alementov matrihi*)
procedure pr_out_matr(n1,m1:byte; mas:tmatr);
var i,j:byte;
begin
   writeln('matriha');
   for i:=1 to n1 do
   begin
     for j:=1 to m1 do
     write(mas[i,j]:8:2);
     writeln;
   end;
end;
procedure pr_swap(var a,b:real);
begin
  a:=a+b;
  b:=a-b;
  a:=a-b;
end;
(*prohedura perestanovki alementov matrihi pobohnoi diagonali*)
procedure pr_diagonal(n,m:byte;var a:tmatr);
var i,j:byte;
begin
    for i:=1 to n do
      for j:=1 to m do
      if (j+i<=n) then pr_swap(a[i,j],a[n-j+1,n-i+1]);
end;
begin
  pr_wod_matr(n,m,a);
  pr_out_matr(n,m,a);
  pr_diagonal(n,m,a);
  pr_out_matr(n,m,a);
end.

procedure pr_out_matr(n1,m1:byte; mas:tmatr);
var i,j:byte;
begin
   writeln('matriha');//убрать
   for i:=1 to n1 do
   begin
     for j:=1 to m1 do
     write(mas[i,j]:8:2);
     writeln;
   end;
end;

begin
  pr_wod_matr(n,m,a);
  writeln('Исходная матрица:');
  pr_out_matr(n,m,a);
  pr_diagonal(n,m,a);
  writeln('Какая-то другая матрица:');
  pr_out_matr(n,m,a);
end.