Помогите плиз, очень нужно. Паскаль

За тебя писать не будет никто, алгоритм таков:
1. В начале указываем массив размером например mass:array[1..100,1..100] of integer;
2. Спрашиваем у пользователя количество столбцов и строк ( получаем переменные colum и line соответственно )
3. Получаем массив заданного размера, заполняем его например рандомом:
    writeln('Mass generation');
    randomize;
    for i:=1 to lines do
        begin
             for ii:=1 to colum do
                 begin
                      mass[i][ii]:=random(60);
                      write('mass[',i,'][',ii,']=',mass[i][ii],'   ');
                 end;
        writeln('');
        end;
У нас есть размеры массива и сам массив дальше просто, прогоняем массив через еще один двойной цикл или дописываем в том же:
4. суммируем первую и последнюю строку во втором цикле, во else суммируем крайние элементы не первой и последней строки:
if (i=1) or (i=colum) then
summ:=summ+mass[i][ii];
else
if (ii>1) and (ii<lines) then
summ:=summ+mass[i][ii];

По сути вот и вся программа:
    writeln('Mass generation');
    randomize;
    for i:=1 to colum do
        begin
             for ii:=1 to lines do
                 begin
                      mass[i][ii]:=random(60);
                      write('mass[',i,'][',ii,']=',mass[i][ii],'   ');
                      if (i=1) or (i=colum) then
summ:=summ+mass[i][ii];
else
if (ii>1) and (ii<lines) then
summ:=summ+mass[i][ii];
                 end;
        writeln('');
        end;
       
остальное сам допишешь и отладишь