Сделать массив размерностью nn элементов и заполнить его по последующему

Создать массив размерностью nn частей и заполнить его по последующему образчику, к примеру для матрицы 55
1 1 1 1 1
0 0 1 0 0
1 1 1 1 1
0 0 1 0 0
1 1 1 1 1

2) С подмогою генератора случайных чисел
Procedure Init (var z:dmas); //процедура Init с описанием формальных параметров-
переменных z:dmas
Var i,j: byte; //описание локальных переменных i,j: byte
Begin //начало процедуры
For i:=1 to n do //цикл с параметром: для i от 1 до n делаем (формируем строчку из n
частей)
For j:=1 to m do //цикл с параметром: для j от 1 до m делаем (формируем столбец из m
частей)
z[i,j]:=random (100); //присваиваем элементу с номером z[i,j] число из спектра от 0 до
100
End; //конец процедуры