Задача по матрице

[manoichi]

Люди помогите с задачами,решите хотя бы одну чтобы я понял принцип.Буду очень признателен вам

Разработать алгоритм методом пошаговой детализации и программу решения задачи, в которой заменить нулями все элементы, расположенные на побочной диагонали и выше ее матрицы размером 4х4, состоящей из элементов целого типа. Основные функции программы оформить в виде процедур и функций. Основные подзадачи описать в комментариях перед программой.

Разработать алгоритм и программу решения задачи с использованием модуля пользователя, в которой заменить нулями все элементы, расположенные на побочной диагонали и выше ее матрицы размером 6х6, состоящей из элементов целого типа.

[GetMax]

Var
   Mas:Array[1..6,1..6] Of Integer;
Procedure Vvod;
Var
   i,j:Byte;
Begin
  For i:=1 to 6 do
  Begin
    For j:=1 to 6 do
    Mas[i,j]:=Random(100)
  End;
End;
Procedure Vivod;
Var
  i,j:Byte;
Begin
  For i:=1 to 6 do
  Begin
    For j:=1 to 6 do
    Write(Mas[i,j]:3);
    Writeln
  End;
End;
Procedure Zamena;
Var
   i,j:Byte;
Begin
  For i:=1 to 6 do
  Begin
    For j:=1 to 6 do
    If (i + j < 7) or (i + j = 7) then Mas[i,j]:=0
  End;
End;
Begin
  Randomize;
  Vvod;
  Vivod;
  Writeln;
  Zamena;
  Vivod;
  Readln
End.