Составить массив 5*6 заполненный с клавиатуры :1.Заменить 2-ой элемент каждой строки на противоположный.2.Вставить после 3-го столбца столбец содержащий число 3.3.Удалить последний столбец массива.4.Поменять местами 1 и последний столбец массива — Pascal(Паскаль)

uses crt;
const nmax=7;
type matr=array[1..nmax,1..nmax] of integer;
procedure Vyvod(var a:matr;n,m:byte);
var i,j:byte;
begin
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:4,' ');
  writeln;
 end;
writeln;
end;
var a:matr;
    n,m,i,j:byte;
    x:integer;
begin
clrscr;
n:=5;
m:=6;
writeln('Введите матрицу целых чисел из 5 строк по 6 чисел:');
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
readln;
clrscr;
writeln('Исходная матрица:');
Vyvod(a,n,m);
write('Press Enter...');
readln;
{пункт 1}
for i:=1 to n do
a[i,2]:=-a[i,2];
writeln('Замена вторых элементов строк на противоположные:');
Vyvod(a,n,m);
write('Press Enter...');
readln;
{пункт 2}
m:=m+1;
for j:=m downto 5 do
for i:=1 to n do
a[i,j]:=a[i,j-1];
for i:=1 to n do
a[i,4]:=3;
writeln('Вставка столбца из цифр 3:');
Vyvod(a,n,m);
write('Press Enter...');
readln;
{пункт 3}
m:=m-1;
writeln('Удаление последнего столбца:');
Vyvod(a,n,m);
write('Press Enter...');
readln;
{пункт 4}
for i:=1 to n do
 begin
  x:=a[i,1];
  a[i,1]:=a[i,m];
  a[i,m]:=x;
 end;
writeln('Обмен первого и последнего столбца:');
Vyvod(a,n,m);
write('Press Enter...');
readln
end.