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

[Nightt]

Привет всем!

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

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

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