Задача с массивами

[investr]

Дана квадратная матрица порядка M. Обнулить элементы матрицы, лежащие ниже главной диагонали.

[Leshii]

uses crt;
Var matrix : array[1..25,1..25] of byte;
   n,i,j,k : byte;

begin
  clrscr;
  write('enter n = '); readln(n);
  for i:=1 to n do
   for j:=1 to n do begin
    write('matrix[',i,'',j,']=');
    readln(matrix[i,j]);
   end;
  for i:= 1 to n do
         for j:= 1 to n do
             if i < j then matrix[i,j] := 0 ;
  for j:= 1 to n do
  begin
       for i:= 1 to n do
       write(matrix[i,j]:3);
       writeln;
  end;
readln;
end.