Pascal. Сумма элементов матрицы

[iamhated]

Помогите все части программы засунуть в одну программу(пункт в).
a)

s:=0;
for i:=1 to n do
for j:=1 to m do
if(i=1)or(i=n)or(j=1)or(j=m) then s:=s+a[i,j];

б)

if(j>=i)and (j<=n-i+1) or (j<=i) and (j>=n-i+1) then
       begin
        sm:=sm+a[i,j];
        write(a[i,j]:4);
       end

в)

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,k,dl,dp:byte;
    sm:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
sm:=0;
if odd(n) then
 begin
  k:=n div 2+1;//серидина матрицы для нечетных
  dp:=0;//дополнение справа
  dl:=1;//дополнение слева
 end
else
 begin
  k:= n div 2;//для четных
  dp:=1;
  dl:=0;
 end;
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(40)+10;
     if((i<=k)and(j<=k)and(j>=k-i+1))
     or((i<=k)and(j>k)and(j<=k+i-dl))
     or((i>k)and(j<=k)and(j>=i-k+dl))
     or((i>k)and(j>k)and(j<=n-i+k+dp)) then
      begin
       sm:=sm+a[i,j];
       textcolor(12);//выделим ромб цветом
       write(a[i,j]:4);
     end
    else
     begin
      textcolor(15);
      write(a[i,j]:4);
     end;
    end;
   writeln;
 end;
textcolor(15);
write('Сумма=',sm);
readln
end.