Матрицы)))

[looozer]

Всем доброго времени суток))
Я как раз в тему создам топик) После топика, где сказано все о матрицах))
Но, у меня немножко другая проблема:
Есть задача: "Вручную ввести матрицу nxn. В каждой строке из элементов до главной диагонали включительно выбрать наименьший. Результат вывести в виде матрицы-рядка."
Суть проблемы: не получается создать матрицу результатов. Выводит только минимальное значение последнего рада.

Блок-схема, которую рекомендовал преподаватель вложена.

[GetMax]

Uses CRT;
Const
MaxKol=20;
Type
Matrix=array[1..MaxKol,1..MaxKol] of integer;
Vektor=array[1..MaxKol] of integer;
Var
M:Matrix;
V:Vektor;
i,j,k,str,stolb:Byte;
Min:Integer;
Begin
ClrScr;
Writeln;
Write('Vvedite kolichestvo strok: ');
Readln(Str);
Writeln;
Stolb:=str;
For i:=1 to Str do
Begin
Write('Vvedite ',i,' stroku: ');
For j:=1 to Stolb do
Read(M[i,j]);
End;
Writeln;
Readln;
Writeln('Matrica ');
Writeln;
For i:=1 to Str do
Begin
For j:=1 to Stolb do
Write(M[i,j]:3);
Writeln
End;
Writeln;
i:=1;
k:=1;
Min:=High(Integer);
Repeat
For j:=1 to i do
Begin
If M[i,j] < Min then
Begin
Min:=M[i,j];
End;
V[k]:=Min;
End;
Min:=High(Integer);
Inc(k);
Inc(i)
Until i > Str;
Writeln('Vektor: ');
Writeln;
For i:=1 to Str do Write(V[i]:3);
Readln
End.

[Joker_vad]

Увеличивай индекс массива при записи в него нового значения