работа с матрицей

[RanMa]

условие задачи:
В матрице размерностью 5х9 перед(после) первым (последнего) столбцом, числа которого положительные, вывести столбец с единицами.

*то, что дано в скобках решается как вторая задача...

я смогла сделать только матрицу..
uses
SysUtils;

CONST n=5;
const m=9;
type massive=array[1..m,1..n] of integer;

var a :massive;
i,j: integer;

begin
randomize;
For J:=1 to m do
begin
For I:=1 to n do
begin
a[i,j]:=random(20+10)-10;
write(a[i,j]:3);
end;
writeln;

READLN;
end.


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

[RanMa]

и тишина ...ну хоть подскажите кто-нибудь как мне числа сравнить с нулём в столбцах))

[Serebro]

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

условие задачи:
В матрице размерностью 5х9 перед(после) первым (последнего) столбцом, числа которого положительные, вывести столбец с единицами.

CONST n=5;
const m=9;
type massive=array[1..m,1..n] of integer;

var a :massive;

должно быть
type massive=array[1..n,1..m] of integer;

[Himka]

Программа:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
CONST n=5;
const m=9;
type massive=array[1..n,1..(m+1)] of integer;

var
 a :massive;
 i,j: integer;
 first: integer;
 flag: boolean;
begin
randomize;
For I:=1 to n do
 For J:=1 to m do
  a[I, J]:=random(35)-10;
writeln('Matritsa');
For I:=1 to n do
begin
 For J:=1 to m do
  write(a[I,J]:5);
 writeln;
end;

first:=0;
for J:=1 to m do
begin
 flag:=true;
 for I:=1 to n do
  if a[I,J]<=0 then
  begin
   flag:=false;
   break;
  end;
 if flag=true then
  begin
   first:=J;
   break;
  end;
end;

if first=0 then
 writeln('V matritse net stolbca, v kotorom vse elementy - pologitelnye chisla')
else
begin
for J:=m downto first do
 for I:=1 to n do
  a[I,J+1]:=a[I,J];
for I:=1 to n do
 a[I,first]:=1;
writeln('Matritsa posle vstavki stolbca');
For I:=1 to n do
begin
 For J:=1 to m do
  write(a[I,J]:5);
 writeln;
end;

end;

READLN;
end.

[RanMa]

огромное спасибо

вопрос ещё... а последний столбец в любом случае убирается?
лично я расширять матрицы не умею))..по крайней мере мы ещё этого не проходили.. но чёт всё-равно пугает отсутствие последнего столбца...
я могу только сделать впереди столбец пустой...но с передвиганием у меня ещё больше проблем %)

[Serebro]

Небольшое исправление:

writeln('Matritsa posle vstavki stolbca');
For I:=1 to n do
begin
 For J:=1 to m+1 do
  write(a[I,J]:5);
 writeln;
end;

[RanMa]

мм..спасибо, теперь прямо идеальное решение))