Вектор из матрицы

[xxxartikxxx]

Из матрицы A получить компоненты вектора X={xi}, i=1,2,...,n, по следующему правилу:в качестве вектора принять главную диагональ матрицы , которая преобразована следующим образом: в начале каждой строки должны быть ее неотрицательные элементы, а в конце - отрицательные элементы (с сохранением порядка следования тех или иных элементов).

Код матрицы:
program matrx;
type
Matr=array[1..20,1..20]of real;
var
i,j,n:integer ;
a:Matr;
begin
writeln;
writeln('vedite n');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
a[i,j] := -2 * (j / 2 - 3.1) * (i - 3.9) + Exp(2.5*Ln(i * j))- 10;
write('a[',i,',',j,']=',a[i,j]:6:2,' ');
end;
writeln;
readln;
end.

[TinMan]

program matrx;
const
  m= 20;
type
  tVector= array[1..m] of double;
  tMatr= array[1..20]of tVector;
var
  i,j,n: integer;
  a: tMatr;
  v: tVector;
  b: double;
begin
  writeln;
  writeln('vedite n');
  readln(n);
  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) + Exp(2.5*Ln(i * j))- 10;
      write(a[i,j]:10:2,' ');
    end;
    writeln
  end;
  for i:=1 to n do begin
    j:= 2;
    while j<=n do
      if (a[i,j-1]<0) and (a[i,j]>=0) then begin
        b:= a[i,j];
        a[i,j]:= a[i,j-1];
        a[i,j-1]:= b;
        if j>2 then dec(j)
      end
      else inc(j)
  end;
  writeln('modified matrix:');
  for i:=1 to n do begin
    for j:=1 to n do write(a[i,j]:10:2,' ');
    writeln
  end;
  for i:=1 to n do v[i]:= a[i,i];
  writeln('vector:');
  for j:=1 to n do write(v[j]:10:2,' ');
  writeln;
  writeln('all done.');
  readln
end.

[xxxartikxxx]

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

type
  tVector= array[1..m] of double;

пишет неизвестное имя типа

[BDA]

Зачем же нужно было даблпостить?

11:25 TinMan, к Вам никаких претензий

[TinMan]

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

пишет неизвестное имя типа

Замени на real.

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

Зачем же нужно было даблпостить?

Да уж - совершенно неясно, зачем..
Извини, BDA, не заметил, что такая ситуевина.