Pascal. Задача с двухмерным массивом

[The_deviLs]

Помогите решить задачу
Я только начал изучать паскаль и еще не разбираюсь

Задача :
Дано два двухмерный массива ,создать третий массив, элементы которого равны произведению минимальных элементов по строкам

[puporev]

Даны два двумерных массива размерностью n*m. Создать линейный массив, элементы которого равны произведению минимальных элементов по соответствующим строкам заданных массивов.
Т.к. ты только начинаешь программировать, то я изложу решение максимально подробно, чтобы ты далее мог фрагменты этого решения использовать для решения других задач.
Итак: Пишем начало программы

program new_mas;
uses crt;
const
     n=5;
     m=7;
var
     a,b:array[1..n,1..m] of integer;
     c,d,f:array[1..n] of integer;
     i,j,mina,minb:integer;
begin
clrscr;

Далее создаем эти массивы, заполняя их случайными числами от 1 до 9.

randomize;
for i:=1 to n do             {создаем массивы А и В}
    begin
      for j:=1 to m do
      begin
        a[i,j]:=random(9)+1;
        b[i,j]:=random(9)+1;
      end;
    end;

Выводим эти массивы на экран.

writeln('массив А:');
for i:=1 to n do             {выводим на экран массив А}
    begin
      writeln;
      for j:=1 to m do
        write(a[i,j],' ');
    end;
    readln;
    writeln;
writeln('массив B:');
for i:=1 to n do             {выводим на экран массив B}
    begin
      writeln;
      for j:=1 to m do
        write(b[i,j],' ');
     end;
     readln;
     writeln;

Создаем линейные массивы из минимальных элементов строк отдельно дла массивов А и В.

for i:=1 to n do             {создаем массив мин.элементов*массива a[i,j]}
    begin
      mina:=a[i,1];
      for j:=1 to m do
         begin
           if a[i,j]<mina then mina:=a[i,j];
         end;
    c[i]:=mina;
    end;
writeln('минимальные элементы массива* A:');
for i:=1 to n do             {выводим его на экран}
   write(c[i],' ');
   readln;
   writeln;
for i:=1 to n do             {создаем массив мин.элементов*массива b[i,j]}
    begin
      minb:=b[i,1];
      for j:=1 to m do
         begin
           if b[i,j]<minb then minb:=b[i,j];
         end;
      d[i]:=minb;
    end;
writeln('минимальные элементы в строках массива В:');
for i:=1 to n do             {выводим его на экран}
   write(d[i],' ');
   readln;
   writeln;

Вычисляем произведения минимальных построковых элементов массива А на анологичные элементы массива В, создаем из них массив и выводим его на экран.

for i:=1 to n do    {вычисляем произведения минимальных элементов}
    begin
      f[i]:=c[i]*d[i];
    end;
writeln('новый массив F:');
for i:=1 to n do         {выводим новый массив на экран}
    write(f[i],' ');
    readln;
end.

Если что то не получится или непонятно, спрашивай, можно в личных сообщениях.

Есть кнопка "Правка". SupVis

[The_deviLs]

вот я постановку задачи сделал:
Входные данные
n - кол-во столбцов где N>=10 (целое)
m- кол-во строк где M>=10 (целое)
A[n,m] - массив целых чисел
B[n,m] - массив целых чисел
Выходные данные
С[n]-массив мин. элементов по строкам

[puporev]

Так я же тебе привел решение в предыдущем своем посте. Ты его читал? Если что непонятно конкретное, то пиши.

[The_deviLs]

ясно!
Спасибо за помощь!