Помогите написать программу №2

[Certate]

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

[Алексей_2012]

#include <iostream>
#include <stdlib.h>

using namespace std;

int main()
{

    cout <<"Razmer matrici: ";
    int N=0;
    cin>>N;
    cin.ignore();

    int array[N][N];

    cout<<endl<<"Generation: "<<endl;

    for (int i=0;i<N;i++)
    {    for (int j=0;j<N;j++)
        {
            array[i][j]=rand()%256-128;
            cout<<array[i][j]<<"\t";
        }
        cout<<endl;
    }


    for (int i=0;i<N;i++)
    {    for (int j=0;j<N;j++)
        {

            if (j<i) array[i][j]=0;


        }
    }


    cout<<endl<<endl<<"NEW:"<<endl;

    for (int i=0;i<N;i++)
    {
        for (int j=0;j<N;j++)
            cout<<array[i][j]<<"\t";

        cout<<endl;
    }
    cout<<"Ny OK Che...";


    return 0;
}

[Mad_Cat]

Const N=5;
var M:array[1..N,1..N] of integer;
  i,j:byte;
begin
  Randomize;
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          M[i,j]:=random(N*N);
          Write(M[i,j]:4);
        end;
      writeln;
    end;
  for i:=2 to n do
    for j:=1 to i-1 do
      M[i,j]:=0;
  writeln('================================');
  for i:=1 to n do
    begin
      for j:=1 to n do
        Write(M[i,j]:4);
      writeln;
    end;
  readln;
end.