работа с массивами (Pascal)

[k0tone]

1. Получить элементы квадратной матрицы А=|a[i,j] |, где i,j=1, ..., n,
a[i,j] = (-2)*((j/2)-3.1)*(i-3.9)+(2.5^i)*j–10
2. Из матрицы A получить компоненты вектора X={x[i]}, i=1,2,...,n, по следующему правилу (в качестве вектора принять главную диагональ матрицы, которая преобразована следующим образом: в начале каждой строки должны быть ее неотрицательные элементы, а в конце - отрицательные элементы (с сохранением порядка следования тех или иных элементов)).
3. Преобразовать вектор в соответствии с правилом по варианту
i-й элемент вектора равен (х[i]-х[i+1])/2, где i=1,n-1.

Вот мои наработки, подскажите я правильно сделал 3-е задание или нет?

program test;
uses crt;
const n=4;
var a:array [1..n, 1..n] of real;
    x:array [1..n] of real;
    i,j:integer;
    z:real;
begin
  clrscr;
  z:=2.5;
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=(-2)*((j/2)-3.1)*(i-3.9)+(z*j)-10;
          write(a[i,j]:11:3);
        end;
      z:=z*2.5;
      writeln;
    end;
  writeln;
  for j:=1 to n do
    for i:=1 to n-1 do

      if (a[i,i]<0) then
      if (a[i,i]*a[i+1,i+1]<=0) then
        begin
          z:=a[i+1,i+1];
          a[i+1,i+1]:=a[i,i];
          a[i,i]:=z;
        end;
  for i:=1 to n do
    write(a[i,i]:11:3);
    writeln;
  for i:=1 to n-1 do
    begin
      x[i]:=(a[i,i]-a[i+1,i+1])/2;
      write(x[i]:11:3);
    end;
  readln;
end.

P.P.S. как понять следующее :
в матрице найти первую по порядку строку с наибольшей суммой ее элементов и в качестве компонент вектора принять упорядоченные по возрастанию элементы этой строки.
Что значит первую по порядку ? Ведь тогда получается что хватает только одной проверки между суммой первой строки и суммой второй. Типа: if (первая сумма < второй) then вторая; else первая;

P.P.P.S жду ответов, уважаемые программисты!

[Stilet]

Что значит первую по порядку

А вдруг будет две строки с одинаковой суммой по элементам? Тогда нужно взять первую начиная с начала строку.
Допустим

1 2 3 - 6
2 3 1 - тоже 6
Тебе нужно взять строку 1 2 3

Ферштейн?

[k0tone]

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

А вдруг будет две строки с одинаковой суммой по элементам? Тогда нужно взять первую начиная с начала строку.
Допустим

1 2 3 - 6
2 3 1 - тоже 6
Тебе нужно взять строку 1 2 3

получается нужно приметить цикл:

while sum[i]<sum[i+1] do
begin
i:=i+1;
end;
for j:=1 to n do x[j]:=a[i,j];

но если суммы по строкам будут:
3, 4, 5
то в результат пойдет третья строка. А по сути должна быть вторая. Верно?
Тогда получается:

if sum[i]<=sum[i+1] then
begin
for j:=1 to n do
x[j]:=a[i,j];
end
else for j:=1 to n do x[j]:=x[i+1,j];

Какой из предложенных кодов будет верен? Или укажите на мои ошибки.

[Stilet]

А по сути должна быть вторая. Верно?

Почему? Ты же сказал

строку с наибольшей суммой ее элементов

Значит ту в которой 5

[k0tone]

Спасибо за помощь!

[Stilet]

Пожалуйста, только я собственно ничем и не помог