В заданной матрице заменить K-строку и L-й столбец нулями, кроме элемента, расположенного на их пересечении

const
  k=10;
  l=5;
var
  i, n: integer;
  matrix: array[1..k, 1..l] of integer;
begin
  for i := 1 to k do
    matrix[i,l]:=0;
  for i := 1 to l do
    matrix[k,i]:= 0;
  matrix[k,l]:= 1;
readln;
end.

const n=10;
var i,j,k,l:integer;
    matrix:array[1..n, 1..n] of integer;
begin
 randomize;
 writeln('matrix');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     matrix[i,j]:=random(21);
     write(matrix[i,j]:3)
    end;
   writeln
  end;
 repeat
  writeln('k,l=? 1<=k,l<=n');
  readln(k,l)
 until (k<=n)and(l<=n);
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     if ((i=k)or(j=l))and((i<>k)or(j<>l)) then matrix[i,j]:=0;
     write(matrix[i,j]:3)
    end;
   writeln
  end
end.

t:=m[k,l];
for j:=1 to n do m[k,j]:=0;
for i:=1 to n do m[i,l]:=0;
m[k,l]:=t;

if ((i=k)or(j=l))and((i<>k)or(j<>l)) then

if (i=k) xor (j=l) then