Кроме элемента пересекающих K строкой и L столбцом остальные элементы находящихся в них заменить нулем- Pascal(Паскаль)

const n=5;
type a=array[1..n,1..n]of integer;
var  i,j:integer;
     m:a;
 
procedure zero(var mas:a; k,l:integer);
var t:integer;
begin
if (k>n)or(l>n) then
begin
  writeln('Такая строка или столбец отсутствуют!');
  exit;
end;
t:=mas[k,l];
for j:=1 to n do
mas[k,j]:=0;
for i:=1 to n do
mas[i,l]:=0;
mas[k,l]:=t;
for i:=1 to n do
begin
  for j:=1 to n do
  write(mas[i,j]:4);
  writeln;
end;
end;
 
begin
randomize;
for i:=1 to n do
begin
  for j:=1 to n do
  begin
    m[i,j]:=random(31)-15;
    write(m[i,j]:4);
  end;
  writeln;
end;
writeln('Результат');
zero(m,3,3);
readln;
end.