СРОЧНО!!! Помогите найти ошибку

[Cola]

Сформировать одномерный численный массив В, где B(i) – равно сумме элементов, кратных 7 и расположенных в i-той строке матрицы, если таких элементов в i-той строке нет, то B(i) равно произведению элементов, расположенных в i-той строке матрицы.
uses crt;
const n=4;
var a:array[1..n,1..n] of integer;
b,s,p:array[1..n] of integer;
i,j,k:integer;
Begin
clrscr;
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(22);
write(a[i,j]:2);
write(' ');
end;
writeln;
end;
for i:=1 to n do
begin
b[i]:=0;

s[i]:=0;
for j:=1 to n do
if (a[i,j] mod 7 = 0) and (a[i,j]<>0) then begin
s[i]:=s[i]+a[i,j];
b[i]:=s[i];
writeln('b[',i,']= ',b[i]);
end;
end;
For i:=1 to n do
If s[i]=0 then begin

for k:=1 to n-1 do
begin
p[k]:=1;
for j:=1 to n-1 do
p[k]:=p[k]*a[k,j];
b[i]:=p[k];
writeln('p[',k,']=',p[k]);
end;
end;
writeln;
for i:=1 to n do
begin
write(b[i]:2);
write(' ');
end;
readln;

end.
ЭЛЕМЕНТЫ С СУММОЙ НАХОДИТ ПРАВИЛЬНО, ПРОИЗВЕДЕНИЕ СЧИТАЕТ НЕВЕРНО

[Cola]

ЕЩЕ ЕСТЬ ТАКАЯ ЗАДАЧА

Организовать типизированный файл, содержащий сведения о зарплате сотрудников предпри-ятия: ФИО, зарплата, подоходный налог (13 % от зарплаты), отчисления в пенсионный фонд (1% от зарплаты). Напишите встроенную подпрограмму-функцию для организации безопасного ввода значений зарплаты – целое число, минимальная заплата 650 рублей. Вычислите подоход-ный и пенсионный налоги для каждого сотрудника и выведите данные в текстовый файл и на дисплей.