Всё те же матрицы!

[Style00001]

Собственно сабж! Написал программу к задачке, но что то не то. Знания про паскаль не оч((( Плз если кто может помогите найти ошибку и исправить её.
Само задание звучит так: Задана матрица A(n,m), в каждом столбце которой минимальный элемент необходимо заменить суммой положительных элементов этого же столбца.


У меня получилось :

program GTO;
const
n=4;
m=5;
type
matrica=array[1..n,1..m] of real;
var
index:array[1..n] of integer;
A:matrica;
i,j:integer;
min,s:real;
nmin: byte;

begin
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']=');
readln(a[i,j])
end;

for j:=1 to m do
begin
min:=a[i,j];
nmin:=1;
for i:=2 to n do
if a[i,j]<min then
s:=0;
for j:=1 to m do
s:=s+a[i,j];
a[i,j]:=min;
index[i]:=j;
end;

begin
if a[i,j]>0 then s:=s+a[i,j];
end;

writeln;
for i:=1 to n do
begin
for j:=1 to m do
write (a[i,j]:8:3,'');
writeln
end; 
end.

[VadEr]

Попробуй так:

program GTO;
const
  n=4; m=5;
var
A :array[1..n,1..m] of real;
index   :array[1..m] of byte;
i, j    :byte;
min, s  :real;

begin
for j:=1 to m do
  for i:=1 to n do
    begin
      write('matrica[',j,',',i,']=');
      readln(A[i,j])
    end;

Writeln; Writeln('Before:');
{Выводим на экран матрицу}
for i:=1 to n do
    for j:=1 to m do
        begin
             write(A[i,j]:8:3,' ');
             if j=m then writeln
        end;
{Ищем min элемент массива и запоминаем его положение в столбце}
for j:=1 to m do
    begin
         min := A[1,j];
         for i:=2 to n do
             if A[i,j] < min then
                begin
                     min := A[i,j];
                     index[j] := i
                end
    end;
{Производим замену min элемента на сумму положительных}
for j:=1 to m do
    begin
         s := 0;
         for i:=1 to n do
             if A[i,j] >= 0 then s := s + A[i,j];
         A[index[j],j] := s
    end;

Writeln; Writeln('After:');
{Выводим результат}
for i:=1 to n do
    for j:=1 to m do
        begin
          Write(A[i,j]:8:3,' ');
          if j=m then writeln
        end;
Readln
end.