Задача в паскале(матрица). Pascal ABC

[alex56599]

В матрице вычислить произведения элементов по каждой строке и максимальное из найденных произведений вычесть из элементов второй строки.

Очень прошу помощи от умных людей. Прошу написать простую программу без высшего класса.

[alex56599]

что не так?

Var
 a:array[1..3,1..4] of integer;
  max, P: real;
    i,j:integer;
    
begin 
P:=1;
writeln('введите значение матрицы');
for i :=1 to 3 do 
for j :=1 to 4 do
readln ( a [ i , j ]); 
  for j:=1 to 4 do
  p:=p*a[1,j];
for i:=2 to 3 do begin
  p:=1;
  for j:= 1 to 4 do
  p:=p*a[i,j];
  if p>max then max:=p;
end;
   for i:=1 to 3 do begin
   for j:=1 to 4 do 
   writeln('вывод',a[i,j])
   
   end;
   end.

[Vanta11a]

Зачем вынесли обработку первой строки в отдельный цикл? Она не участвует в сравнении.
Где вычитание максимального произведения?