Задача на турбо Паскале

[microSD]

Господа, решите пожалуйста задачу. Положение безвыходное - сегодня в 18-00 необходимо сдать решение. Если не успею до этого времени, то у меня капут по информатике в инсте и ==> мне полный и нехороший абзац вырисовывается. Вот собственно и задача:
---------------------------------
Дана матрица А:
-4.1 5.8 -6.7 4.3
2.1 -5.1 6.3 -4.7


Найти
Р=<сумма элементов 1 строки> - <произведение элементов 2й строки>

b [1...n, 1...m]
bij, b[i,j]
---------------------------------
Решение, как указано в теме, необходимо на Турбо Паскале (нужен только исходный код). Еще раз очень прошу помочь!

[Professor Hubert]

Спасайтесь.

Program matrix2;
Uses CRT;
Var b:array [1..2,1..4] of real;
    i,j:integer;
    p,p1,p2:real;

BEGIN
   ClrScr;
   b[1,1]:=-4.1;
   b[1,2]:=5.8;
   b[1,3]:=-6.7;
   b[1,4]:=4.3;
   b[2,1]:=2.1;
   b[2,2]:=-5.1;
   b[2,3]:=6.3;
   b[2,4]:=-4.7;

   Writeln('vivod matrx');
   For i:= 1 to 2 do
   begin
       For j:=1 to 4 do
       begin
          Write(b[i,j]:3:1);
          Write(' ');
       end;
       Writeln;
   end;
   p:=0;
   p1:=0;
   p2:=1;
   For j:=1 to 4 do
   begin
       p1:=p1+b[1,j];
       p2:=p2*b[2,j];
   end;
   p:=p1-p2;
   Writeln('p=',p:6:2);
  readkey;
END.

[microSD]

Спасибо! =) Просто нет слов! Вы меня очень выручили.