Ребят помогите плизз с заполнением массива на паскале

Ребят помогите плизз с заполнением массива на паскале
1)Дана квадратичная матрица

1111
2222
3333
4444

2) Дана квадратичная матрица

01110
10101
11011
10101
01110

  • Вторая задача:

    program N95075738;
    const
    n = 5;
    var
    a: array [1 .. n, 1 .. n] of byte;
    i, j: byte;
    begin
    {Формирование}
    fillchar(a, sizeof(a), 1);
    for i := 1 to n do
    begin
    a[i, i] := 0;
    a[i, n - i + 1] := 0;
    end;

    {Вывод на экран}
    for i := 1 to n do
    begin
    for j := 1 to n do
    write(a[i, j]:2);
    writeln
    end;
    readln
    end.

    Первая совсем скучная задача.
    Каждый элемент матрицы равен номеру строки, в которой он находится.
    Отличие от приведённой выше программы в формировании массива:
    for i := 1 to n do
    for j := 1 to n do
    a[i, j] := i;

    и значении константы n = 4;

  • примени инициализацию массива
    type dim=array[1..,1..3] of integer;
    consta:dim= ((1,1,1),(2,2,2),(3,3,3)) ;
  • http://pas1.ru/array пользуйся