Процедура: обнуление элементов матрицы, расположенных ниже главной диагонали

type mas=array[1..5,1..5] of integer;
var a,b:mas;
    i,j:integer;
procedure Diag(var vm:mas;var kol:integer);
var i,j:integer;
begin
for i:=1 to kol do
  for j:=1 to kol do
    if i<j then vm[i,j]:=0;
end;
 
begin
for i:=1 to 3 do
  for j:=1 to 3 do a[i,j]:=random(11);
for i:=1 to 5 do
  for j:=1 to 5 do b[i,j]:=random(11);
 
Diag(a,3);
Diag(b,5);
 
for i:=1 to 3 do begin writeln;
  for j:=1 to 3 do write(a[i,j]);
  end;
writeln;
for i:=1 to 5 do begin writeln;
  for j:=1 to 5 do write(b[i,j]);
  end;
end.

type mas=array[1..5,1..5] of integer;
procedure Matrix(var a:mas;n:byte);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=1+random(10);
end;
procedure Print(a:mas;n:byte;s:string);
var i,j:byte;
begin
writeln(s);
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
end;
procedure Diag(var a:mas;n:byte);
var i,j:byte;
begin
for i:=2 to n do
for j:=1 to i-1 do
a[i,j]:=0;
end;
 
 
var a,b:mas;
begin
Matrix(a,5);
Print(a,5,'Исходная матрица А');
Diag(a,5);
Print(a,5,'Измененная матрица А');
Matrix(b,3);
Print(b,3,'Исходная матрица B');
Diag(b,3);
Print(b,3,'Измененная матрица B');
end.