Помогите решить задачки по масивам !!

[masha17]

1) Элементами массива являються числа целого типа х[1]..x[m+n], который рассматриваеться, как соединение двох отрезков: сначала х[1]..x[m] длиной m и концом х[m+1]..x;m+n] длиной n. Не используя дополнительных массивов, переставить начало и конец, используя такой способ: перевернуть (расположить в обратном порядке) отдельно начало и конец массива, а потом перевернуть весь массив, как единое целое.

2) Обчислить сумму элементов столбца, в котором находиться элемент с максимальным значением.

3) Дано квадратную матрицу размером N. Получить новую матрицу размером N-1 путем удаления с начальной матрицы рядка и столбца, на перегибе которых находиться максимальный элемент матрицы.

БУДУ ОЧЕНЬ БЛАГОДАРНА ЗА ЛЮБУЮ ПОМОЩЬ !!!

[alex_fcsm]

const n=8;
var a:array[1..n,1..n] of integer;
    i,j,l,t:integer;
    
begin
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:3);
   end;
   writeln;
 end;
 l:=1;t:=1;
 for i:=1 to n do
  for j:=1 to n do
   if a[i,j]>a[l,t] then begin
                          l:=i;t:=j;
                         end;
 for i:=l to n-1 do
  for j:=1 to n do
   a[i,j]:=a[i+1,j];
  for j:=t to n-1 do
  for i:=1 to n do
   a[i,j]:=a[i,j+1];
  writeln('================================');
  for i:=1 to n-1 do
   begin
   for j:=1 to n-1 do
    write(a[i,j]:3);
   writeln;
   end;
 end.

[alex_fcsm]

const n=8;
var a:array[1..n,1..n] of integer;
    i,j,l,t:integer;
    
begin
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:3);
   end;
   writeln;
 end;
 l:=1;t:=1;
 for i:=1 to n do
  for j:=1 to n do
   if a[i,j]>a[l,t] then begin
                          l:=i;t:=j;
                         end;
l:=0;
for i:=1 to n do
  l:=l+a[i,t];
  writeln('Sum',l);
 end.