Сформировать двумерные массивы

3 3 3 3 3
3 3 3 3 3
3 3 3 3 3
3 3 3 3 3

111111
222222
333333
444444

0001
0010
0100
1000

1000
1100
1110
1111

Program asd;
Const N=5;M=5;
Var A:Array[1..N,1..M] of integer;
    i,j: integer;
    Begin
      for i:=1 to N do
      For j:=1 to M do
      a[1,1];
      a[1,2];
      a[1,3];
      a[2,1];
      a[2,2];
      a[2,3];
      a[3,1];
      a[3,2];
      a[3,3];
      end.

const m = 20;
type arr = array[1..m, 1..m] of integer;
 
function readln_q(s:string): integer;
var x: integer;
begin
  repeat
    write(s, ' in [1..', m, '];  ', s, ' = ');
    readln(x)
  until x in [1..m];
  readln_q := x
end;
 
procedure prn(s: string; var x: arr; n: integer);
var i, j: integer;
begin
  writeln(s);
  for i := 1 to n do
    begin
      for j := 1 to n do write(x[i, j]:3);
      writeln
    end;
  write('Нажмите <Enter> для продолжения');
  readln
end;
 
var an, bn, cn, dn, i, j: integer;
    a, b, c, d: arr;
begin
  an := readln_q('an');
  for i := 1 to an do
    for j := 1 to an do a[i, j] := 3;
  prn('Первый массив:', a, an);
  bn := readln_q('bn');
  for i := 1 to bn do
    for j := 1 to bn do b[i, j] := i;
  prn('Второй массив:', b, bn);
  cn := readln_q('cn');
  for i := 1 to cn do
    for j := 1 to cn do
      if i = cn + 1 - j
        then c[i, j] := 1
        else c[i, j] := 0;
  prn('Третий массив:', c, cn);
  dn := readln_q('dn');
  for i := 1 to dn do
    for j := 1 to dn do
      if j > i
        then d[i, j] := 0
        else d[i, j] := 1;
  prn('Четвёртый массив:', d, dn);
  readln
end.

type
    mas = array of array of integer;
 
function fillArrayNumber(arr : mas; number : integer) : mas;
var
   i, k : integer;
begin 
   for i := 0 to length(arr) - 1 do
      for k := 0 to length(arr[i]) - 1 do arr[i][k] := number;
   fillArrayNumber := arr;
end;
 
procedure printArray(arr : mas);
var
  i, k : integer;
begin   
   for i := 0 to length(arr) - 1 do
   begin
      for k := 0 to length(arr[i]) - 1 do write(arr[i][k], ' '); 
      writeln();
   end;      
end;
 
procedure createArray(var arr : mas; n, m : integer);
var
   i : integer;
begin
   if (n > 0) and (m > 0) then
   begin
      setLength(arr, n);
      for i := 0 to length(arr) - 1 do setLength(arr[i], m);
   end;
end;
 
function fillArrayRow(arr : mas) : mas;
var
   i, k : integer;
begin
   for i := 0 to length(arr) - 1 do
      for k := 0 to length(arr[i]) - 1 do arr[i][k] := i + 1;
   fillArrayRow := arr;   
end;
 
function fillArrayDiag(arr : mas; num : integer) : mas;
var
   i : integer;
begin
   i := 0;
   while (i <= length(arr) - 1) and (i <= length(arr[i]) - 1) do
   begin
      arr[i][length(arr[i]) - i - 1] := num;
      inc(i);
   end;
   fillArrayDiag := arr;   
end;
 
function fillArrayPart(arr : mas; num : integer) : mas;
var
   i, k : integer;
begin
   for i := 0 to length(arr) - 1 do
      if i <= length(arr[i]) then
         for k := 0 to i do arr[i][k] := num; 
   fillArrayPart := arr;      
end;
 
var
   arr : mas;
   n, m : integer;
   
begin
   n := 6;
   m := 5;
   createArray(arr, n, m);
   //task 1
   arr := fillArrayNumber(arr, 3);
   printArray(arr);
   writeln();
   
   //task 2
   arr := fillArrayRow(arr);
   printArray(arr);
   writeln();
   
   //task 3
   arr := fillArrayNumber(arr, 0);
   arr := fillArrayDiag(arr, 1);
   printArray(arr);
   writeln();
   
   //task 4
   arr := fillArrayNumber(arr, 0);
   arr := fillArrayPart(arr, 1);
   printArray(arr);
   writeln();
end.