Заглушки и драйверы Опции

[Guest]

Ты заголовок подпрограммы привести можешь?  Или так и будем гадать? Откуда я знаю, КАК твоя подпрограмма должна "вывести" одномерный столбец, через параметры, или на печать через WriteLn ??

Код

Procedure Stolb(Var A:Dvum; n,m:integer; Var NoS;Fl:Boolean);
implementation
Procedure Stolb;
Var i,j,kol:integer;
begin
 k:=1; fl:=false;
    for j:=1 to m do
       begin
         kol:=0;
             for i:=1 to n-1 do
                if a[i+1,j]>a[i,j] then kol:=kol+1;
                if kol=n-1 then
                    begin
                        odin(NoS)[k]:=j;
                        k:=k+1;
                        fl:=true
end;
end;
end;

[volvo]

Ну, начнем с того, что F1 не возвращается в вызывающую программу, так что про нее забудь Ну, допустим вот такой вариант ЗАГЛУШКИ (ну поймите же вы, что эта вещь возвращает не то, что должно вернуться, а то, что ТЫ хочешь чтобы вернулось !!!)

Procedure Stolb(Var A:Dvum; n,m:integer; Var NoS;Fl:Boolean);
var i: integer;
begin
  writeln('Заглушка');
  for i := 1 to n - 1 do
    odin(NoS)[i] := i;
end;

P.S. Если уже даешь что-то, будь добр давать и описания типов !!! Обязательно догадываться, что скрывается за извращениями типа Dvum или odin?