Заполнить матрицу (4х4) случайными значениями от 12 до 18 включительно. Вывести сумму значений элементов каждого столбца матрицы

VAR
i, j: Integer;
a: Array [0..4] of Array [1..4] of Integer;
BEGIN
for i := 1 to 4 do
for j := 1 to 4 do begin
a[i][j] := Random(7)+12;
a[0][j] := a[0][j] + a[i][j];
end;
 
for i := 1 to 4 do begin
for j := 1 to 4 do Write(a[i][j],' '); Writeln; end;
 
Writeln;
for i := 1 to 4 do Write(a[0][i],' ');
END.
 
2. Задать двумерный массив (7х7) случайными значениями от 12 до 18 включительно. В каждом столбце матрицы найти количество элементов, значения которых меньше 14.
VAR
i, j: Integer;
a: Array [0..7] of Array [1..7] of Integer;
BEGIN
for i := 1 to 7 do
for j := 1 to 7 do begin
a[i][j] := Random(7)+12;
if (a[i][j] < 14) then Inc(a[0][j]);
end;
 
for i := 1 to 7 do begin
for j := 1 to 7 do Write(a[i][j],' '); Writeln; end;
 
Writeln;
for i := 1 to 7 do Write(a[0][i],' ');
END.
 
3. Задать двумерный массив (3х3) с клавиатуры, поменять значения элементов 1 столбца со вторым.
VAR
i, j: Integer;
a: Array [0..3] of Array [1..3] of Integer;
BEGIN
for i := 1 to 3 do
for j := 1 to 3 do Read(a[i][j]);
 
for i := 1 to 3 do begin
a[0][i] := a[1][i]; a[1][i] := a[2][i]; 
a[2][i] := a[0][i]; end;
 
for i := 1 to 3 do begin
for j := 1 to 3 do Write(a[i][j],' '); Writeln; end;
END.

Program primer1;
var i,j,c,s:integer;
   m: array [1..4, 1..4] of integer;
begin
c:=1;
Writeln('Введите элименты массива');
for i:=1 to  4 do 
 begin
 for j:=1 to  4 do
 m[i,j]:=random(7)+12;
 end;
  for i:=1 to 4 do
begin
 for j:=1 to 4 do
write(m[i,j],' ');
writeln;
end;
 While (c<=4) do
 begin
 s:=0;
 for i:=1 to 4 do 
 begin
 for j:=1 to 4 do
 begin
  if (c=j) then s:=s+m[i,j];
  end; 
  end;
  Writeln(c,'Стобец', s);
  c:=c+1;
  end;
end.