Задача на процедуру.(у меня в коде ошибка)

[Буханкин]

Вот мой код(в нём есть ошибка ,и я не знаю как её исправить):

program asd;
const
m=5;n=4;
type
mas=array [1..m] of real;
mas1=array [1..n,1..m] of real;
var
b,c:mas;
d:mas1;
i,j:integer;
procedure pr(x,y:mas;var d:mas1);
var s,s1:real;
i,j,k:integer;
begin
 for j:=1 to n do begin
 s:=0;
 for i:=j to m do s:=s+y[i];
 for i:=j to m do begin
 s1:=0;
 for k:=1 to i do
 s1:=s1+x[k];
 d[i,j]:=s*s1;
end;

end;
end;
begin
writeln('vvedite massiv B');
for i:=1 to n do
read(b[i]);
writeln('vvedite massiv C');
for j:=1 to m do
read(c[j]);
pr(b,c,d);
for i:=1 to n do begin
for j:=1 to m do
writeln(d[i,j]:5:2);
writeln;
end;

readln;
end.

Задание см. на изображениях.

[Karpinsky]

Так больше похоже не то, что написано в задании:

procedure pr(x, y : mas; var d : mas1);
var
   s1, s2 : real;
   i, j, k : integer;
begin
   for i := 1 to n do
      for j := 1 to m do
      begin
         s1 := 0;
         for k := 1 to i do s1 := s1 + X[k];
         s2 := 0;
         for k := j to m do s2 := s2 + Y[k];
         D[i, j] := s1 * s2;
      end;
end;