Заполнить массив размерностью 3*7 по правилу

Uses
 CRT;
Const
 n=3;
 m=7;
var
 a:array[1..n,1..m] of integer;
 i,j,k:integer;
 
Begin
 for i:= 1 to n do
 begin
  for j:= 1 to m do
   begin
   if (i+j) mod 2=0 then
   begin
    inc(k);
    a[i,j]:=k;
   end;
   write(a[i,j]:3)
   end;
  writeln
 end;
 Readln
End.

uses crt;
const n=3;
m=6;
type dmyarray=array [1..n,1..m] of integer;
var b:integer;
    a: dmyarray;
 
procedure init2(var x:dmyarray;n:integer);
var i,j:integer;
begin
for i:=1 to n do
    for j:=1 to m do
        x[i,j]:=random(19)-9;
end;
 
procedure print2(x:dmyarray;n:integer);
var i,j:integer;
begin
for i:=1 to n do
    begin
    for j:=1 to m do
        write(x[i,j]:4);
    writeln;
    end;
end;
 
procedure change (var x:dmyarray; n:integer);
var i,j,q:integer;
begin
for j:=1 to m div 2 do
    for i:=1 to n do
        begin
        q:=x[i,j];
        x[i,j]:=x[i,m-j+1];
        x[i,m-j+1]:=q;
        end;
end;
 
begin
Randomize;
 
Init2(A,n);
writeln('Do obmena');
Print2(A,n);
change (A,n);
writeln('Posle obmena');
Print2(A,n);
Readln;
end.

Uses
 CRT;
Const
 n=3;
 m=7;
Type mas=array[1..n,1..m] of integer;
procedure Massiv(var a:mas);
var i,j,k:integer;
Begin
 for i:= 1 to n do
 begin
  for j:= 1 to m do
   begin
   if (i+j) mod 2=0 then
   begin
    inc(k);
    a[i,j]:=k;
   end;
   write(a[i,j]:3)
   end;
  writeln
 end;
end;
var a:mas;
begin
Massiv(a);
End.