матрица MXN, вставить столбец Опции

[Svetlana]

В заданной матрице сформированной случайно вставить второй столбец перед всеми стольбцами,в которых нет отричательных элементов. Не могу найти ошибку...логическая...

program Project4;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var n,m,i,j:integer; a,b:array of array of integer; flag:boolean;
begin
randomize;
writeln('vvedite razmernost matricy(lines):'); readln(n);        //вводим размерность
writeln('vvedite razmernost matricy(columns):'); readln(m);
setlength(a,n,m);  setlength(b,n,m);
writeln('Ischodnay matrica razmerom ',n,'X',m,':');
writeln;
for i:=0 to n-1 do begin
for j:=0 to m-1 do begin a[i,j]:=random(11)-5; write(a[i,j]:3,' ') end; writeln end; //заполняем



for j:=0 to m-1 do begin
flag:=true;i:=0;
while (i<=n-1)and(flag=true) do begin
                     if a[i,j]>0 then flag:=true else flag:=false;
                         i:=i+1
                         end;

if flag=true then begin m:=m+1; setlength(b,n,m);
for i:=0 to n-1 do begin
    b[i,j]:=a[i,1];
    b[i,j+1]:=a[i,j]
    end;
    end
    else for i:=0 to n-1 do
      b[i,j]:=a[i,j];end;
writeln('Konechnay matrica razmerom ',n,'X',m,':');
writeln;
for i:=0 to n-1 do begin              // вывод
for j:=0 to m-1 do write(b[i,j]:3,' '); writeln end;
readln
  { TODO -oUser -cConsole Main : Insert code here }
end.

Сообщение отредактировано: Svetlana - 6.06.2009 0:31

[Krjuger]

Значит я не совсем коректно понимаю фразу

SetLength устанавливает длинну строки S в Len. S может быть типа AnsiString, ShortString или WideString. Для ShortString Len может быть максимум 255. Для AnsiString может быть любое значение. Для AnsiString только SetLength должно использоваться для установки длинны

Взято из FP.
Хотя для OP уже пишется про динамические массивы...