Програмка на массив - Pascal

Формулировка задачи:

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

Решение задачи: «Програмка на массив»

Листинг программы

uses crt;
var
i,j,mm,m,n,nn:integer;
a:array[1..100,1..100] of integer;
begin
writeln('vvedite n');
readln(n);
writeln('vvedite m');
readln(m);
randomize;
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(199)-99;
write(a[i,j]:4);
end;
writeln;
end;
writeln('vvedite stroky');
readln(nn);
writeln('vvedite stolbik');
readln(mm);
if (nn<=n) and (mm<=m) then begin
writeln;
writeln('izmenennaja matrica');
for i:=1 to n do begin
for j:=1 to m do begin
if ((i=nn)and(j<>mm)) or ((i<>nn)and(j=mm)) then begin
a[i,j]:=0;
end;
write(a[i,j]:4);
end;
writeln;
end;
end;
readln;
end.

Объяснение кода листинга программы

Программа запрашивает у пользователя ввод чисел n и m (размеры массива).
Затем она инициализирует массив случайными числами от 0 до 199.
Далее программа запрашивает у пользователя ввод строк и столбца, которые нужно выделить.
Если указанные строка и столбец существуют в массиве, то программа выводит выделенную подматрицу.
Программа завершается после нажатия клавиши Enter.