Паскаль массив

[dante92]

Помогите пожалуйста сделать задачку до завтра!!Прога должна считать числовую матрицу и сформировать вектор из столбцов матрицы,в которых есть хоть одно отрицательное число.Тут вот начало проги:
Const
Dim=10;
Type
TypeMatrix=Array[1..dim,1..dim] of integer;
TVector=Array[1..dim*dim] of integer;
Var
Matrix:typematrix;
K,Kolvo,I,J,Line,Column:byte;
Vector:tvector;
Begin
Write('Введите построчно матрицу чисел размерностью');
Writeln(' не более чем ',dim,'x',dim);
Writeln('Конец ввода по 2ум enter');
line:=0;
While not eoln do
Begin
Inc(line);
column:=0;
While not eoln do
begin
Inc(column);
Read(Matrix[line,column])
end;
Readln
end;
Readln;

[RUSt88]

блин, хоть бы в тег код засунул, читать же невозможно

[RUSt88]

TVector=Array[1..dim*dim] of integer;

сразу говорю, что неправильно, зачем тебе сто векторов, если из матрицы максимум можно выжать 10 векторов?