Паскаль

[Roll1n]

Даны целочисленные матрица F[1:n,1:m] и целочисленный массив Q[1:r].
Нужно упорядочить по возрастанию те столбцы матрицы F,произведение элементов которых совпадает с одним элементом из массива Q.


Я думаю,что нужно ввести массив,ввести матрицу потом найти произведение каждого столбца,если какое-то произведение совпадает с элементом массива,то этот столбец упорядочить по возрастанию.

     program 2012;
     
uses crt;
type matr=array[1..30,1..30] of integer;
type mass=array[1..30] of integer;
     var F:matr;
         Q:mass;
         n,m,i,j,r,c,k,nmax,a,b:integer;
         max:real;
begin
writeln('длинна массива');
         read(r);
writeln('эл-ты массива');
        for i:=1 to r do
         read(Q[i]);
           for i:=1 to r do
   write(Q[i]:2);
writeln();
  writeln('ввести n >1');
      read(n);
  writeln('ввести m>1');
      read(m);
    writeln('эл-ты матрицы');
for i:=1 to n do
    for j:=1 to m do
        read(F[i,j]);
for i:=1 to n do begin
    for j:=1 to m do
        write(F[i,j]:4);
writeln;
end;
write('pampam');
end.

Ну самое легкое ввести массив и матрицу у меня получилось,а вот дальше я не знаю как.
Помогите пожалуйста!

[dr.Chas]

program Project1;

{$APPTYPE CONSOLE}

type matr=array[1..30,1..30] of integer;
type mass=array[1..30] of integer;


var F:matr;
    Q:mass;
    n, m, i, j, prz, r, l :integer;
    //max:real;

begin
  writeln('dlina');
  read(r);
  randomize;
  writeln('element');
  for i:=1 to r do
    Q[i]:=random(100)+1;

  for i:=1 to r do
   write(Q[i]:5);

  writeln;
  writeln(' n >1');
  read(n);
  writeln(' m>1');
  read(m);
  writeln('element matrici');
  for i:=1 to n do
    for j:=1 to m do
      F[i,j]:=random(10)+1;

  for i:=1 to n do
  begin
    for j:=1 to m do
      write(F[i,j]:4);
    writeln;
  end;

  for i:=1 to n do
  begin
    prz:=1;
    for j:=1 to m do
      prz:=prz*F[j,i];

    for l:=1 to r do
      if Q[l]=prz then
      {тут раставляете по возрастанию столбцы матрицы F,
      если незнаете как это делать смотрите на форуме таких примеров море}
  end;
end.