Подпрограммы

[Nightt]

Привет всем!

Дан двумерный массив, содержащий N*N элементов. Написать подпрограмму, выполняющую замену нулями всех элементов, расположенных на главной диагонали матрицы.

помогите плз напишите подробнее, буду очень благодарен

for i:=1 to n do
x[i,i] := 0;

[ОДИНОЧЕСТВО В СЕТИ]

procedure lamer(a:array[1..100,1..100]of integer;n:integer);
var i:integer;
begin
for i:=1 to n do
a[i,i] := 0; 
end;

вызов

Lamer('матрица','размерность');