{Задача 1}
type Mat = arrsay [1..3, 1..4] of integer;
var i: integer;
A: Mas;
begin
for i:=1 to 3 do
   begin
     for j:=1 to 4 do
         Write (i:4);
    WriteLn;
  end;
ReadLn;
end.

{Задача 2}
type Mat = arrsay [1..3, 1..4] of integer;
var i:integer;
A: Mas;
begin
for i:=1 to 3 do
   begin
     for j:=1 to 4 do
         Write (j:4);
    WriteLn;
  end;
ReadLn;
end.

Var
  i,j:integer;
begin
  for i:=1 to 3 do
  begin for j:=1 to 4 do Write(i:2); Writeln end
end.

Результат выполнения программы:
 1 1 1 1
 2 2 2 2
 3 3 3 3

var
  i,j:integer;
begin
  for i:=1 to 3 do
  begin for j:=1 to 4 do Write(j:2); Writeln end
end.

Результат выполнения программы:
 1 2 3 4
 1 2 3 4
 1 2 3 4

Программы отличаются ровно одним символом - именем переменной в обращении к процедуре вывода: Write(i:2); и Write(j:2);