матрица nXn, сумма Опции

[Svetlana]

Привет всем:-) Помогите пожалуйста отредактировать программу...Она должна определять минимум среди сумм элементов,расположенных на линиях,параллельных побочной диагонали. Свои старания приложила :-)
Ошибка: после условия в цикле while не заходит в цикл for.

[Lapp]

Извини, запутался вконец..
Короче, вот тебе решение. Если неясно - спрашивай))

const
  n=5;
var
  matr:array [1..n,1..n] of integer;
  s: array [2..2*n] of integer;
  i,j,min: integer;

begin
  //randomize;
  for i:=1 to n do begin
    for j:=1 to n do begin
      matr[i,j]:=random(100)-20;
      write (matr[i,j]:3,' ')
    end;
    writeln;
  end;

  for i:=2 to n*2 do s[i]:=0;
  for i:=1 to n do for j:=1 to n do Inc(s[i+j],matr[i,j]);

  min:=s[2];
  for i:=2 to n do if s[i]<min then min:=s[i];
  writeln ('min_summa=',min);
  readln
end.