Составить программу численного расчета интеграла методом трапеций

uses crt;
const n=5;
      m=9;
var a:array[1..n,1..m+1] of integer;{одно место под новый столбец}
    i,j,k,kp:byte;
begin
clrscr;
randomize;
writeln('Ishodnaya matrica:');
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
        a[i,j]:=random(10)-2;
        write(a[i,j]:3);
      end;
    writeln;
  end;
k:=0;
for j:=1 to m do {идем по столбцам}
  begin
    kp:=0;
    for i:=1 to n do{по столбцу вниз}
    if a[i,j]>0 then kp:=kp+1;{если положитедьное, считаем}
    if kp=n then{если в столбце все положительные}
      begin
       k:=j;{запоминаем номер столбца}
       break;{больше не ищем такой столбкц}
      end;
  end;
for j:=m+1 downto k+2 do{от последнего столбца+1 до столбца за найденным+1}
for i:=1 to n do{все элементы строк}
a[i,j]:=a[i,j-1];{сдвигаем на 1 вправо}
for i:=1 to n do
a[i,k+1]:=1;{в освободившийся столбец записываем единицы}
writeln('Rezultat:');
for i:=1 to n do
  begin
    for j:=1 to m+1 do
    write(a[i,j]:3);
    writeln;
  end;
readln
end.