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

var k, l, i, j, m:integer;

a:array[1 ... 10,1 ... 10] of integer;

begin

randomize;

for i:=1 to 10 do

for j:=1 to 10 do

a[i, j]:=random (10) - 5;

for i:=1 to 10 do

begin

for j:=1 to 10 do write (a[i, j]:5) ;

writeln;

end;

write ('K=') ;

readln (k) ;

write ('L=') ;

readln (l) ;

m:=a[k, l];

for i:=1 to 10 do

for j:=1 to 10 do

if k=i then a[i, j]:=0 else if l=j then a[i, j]:=0;

a[k, l]:=m;

for i:=1 to 10 do

begin

for j:=1 to 10 do write (a[i, j]:5) ;

writeln;

end;

end.