Паскаль матрицы

[Darf]

Здравствуйте ,небуду писать помогите! Решите мне плз задачу! я нечего в паскале не шарю!! заранее спасибо!
Задача
Дана матрица a(n,n)заменить нулями все эллементы,расположеные на головной диагонали (диагональ-сверху вниз и слева направо) и выше неё!
заранее спасибо !!!P.S в паскале смогу записать только
Program ffg;
uses crt;
var
это всё.....

[Stilet]

небуду писать помогите!

Возьмите свою зачетку. Придете осенью )

[HoLToFF]

program Zero;
const n = 20;
var M:array[1..n,1..n] of integer;
i,j: integer;

begin

randomize;
{ заполнение и вывод матрицы }
writeln('Imeem matricu:');
for i:= 1 to n do
   begin
      for j:= 1 to n do
      begin
      m[i,j]:=random(100);
      write(m[i,j]:2,' ');
      end;
   writeln;
   end;

{ зануление элементов выше главнйо диагонали }
for i:= 1 to n do
   for j:= i to n do
      m[i,j]:=0;

writeln;
writeln('Zanulennaia matrica:');
{ вывод зануленной матрицы }
for i:= 1 to n do
   begin
      for j:= 1 to n do
      write(m[i,j]:2,' ');
   writeln;
   end;   
readln;
end.

[Darf]

ОГРОМНОЕ СПАСИБО!!!!!!!!!!!!!!!!!!!!!!!!! КРУТО!!!!!!!!!!!!!!!!