Задача на матрицу - очень нужна ваша помощь!!

[RomT24]

Здравствуйте, уважаемые "братья по клавиатуре"!
Есть задача, которая не хочет корректно работать, а с поиском причины сего факта проблемы. Кто может - подправьте мой код или посоветуйте:
"Дан целочисленный массив n*m. Написать программу поиска особых эл-тов в массиве. Особым считается элемент, меньший среди ВСЕХ идущих за ним элементов в КАЖДОМ СТОЛБЦЕ. Найденные элементы записать в новый одномерный массив, указать, какому столбцу данный эл-т принадлежит (это вообще не сделал)"

uses crt;
var
 arr:array [1..100] of integer;
 a: array [1..100,1..100] of integer;
 i,j,k,h,f,i1,n,m,l:integer;

 Procedure OutMatr;
  var
   i,j:integer;
  begin
   for i:=1 to n do
    begin
     for j:=1 to m do
      write(a[i,j]:4);
      writeln;
    end;
  end;
 
 begin
  read(n,m);
  for i:=1 to n do
   for j:=1 to m do
    read(a[i,j]);
    
  OutMatr;
  
  i1:=1;
  f:=0;
   for j:=1 to m do
    begin
     for i:=1 to n-1 do
      begin
       h:=a[i,j];
       for k:=i+1 to n-1 do
        begin
         if a[k,j]>h then
          f:=f+1;
        end;
      if f=n-k then
       begin
        arr[i1]:=h;
        i1:=i1+1;
        l:=i1;
       end;
      end;
    end;

 for i1:=1 to l do
  write(arr[i1],' ');
    
  end.

Кто разберется - буду очень рад!

[rainbow]

Со всем понятно, только:

Сообщение от RomT24

Найденные элементы записать в новый одномерный массив, указать, какому столбцу данный эл-т

Каким образом нужно указать, что данный элемент принадлежит данному столбцу? Можно сделать, но в этом случае надо будет выводить не одномерный массив а его элементы построчно, + Строка принадлежит такому то столбцу.

[Stilet]

меньший среди ВСЕХ идущих за ним элементов

А мне вот эта строка не понятна...

[Anatole]

А мне вот эта

Есть задача, которая не хочет корректно работать

[RomT24]

Отвечаю на ваши вопросы:
Меньший среди ВСЕХ идущих за ним элементов - пример: в столбце сверху вниз идут числа 1,2,3 - среди них особыми будут 1 и 2, так как все элементы, которые идут дальше, больше них, если б было 1 2 1, то особым был только 2. Ясно?
Насчет принадлежности к столбцу. Тут я , извините дурака, напортачил. В общем про это можете вообще забыть, надо просто вывести массив с особыми элементами и всё.
Насчет фразы о корректности работы. Я считаю, что придирка к формулировке здесь лишняя, так как это далеко не главное и думаю, суть фразы и так понятна. Она если кто не понял звучит и так: "Программа, написанная мной по этой задаче, не работает как нужно (выводя только самый первый элемент из исходного массива)"

Надеюсь, вам стал понятней мой "бред"? Буду очень надеяться на вашу помощь!

[RomT24]

Неужели никто не разобрался? Поверьте, мне ОЧЕНЬ нужна сейчас помощь в этой задаче!

[Sazary]

Уфф.. И тут дубль..
http://programmersforum.ru/showthread.php?t=50520