Массивы

[Ана88]

В качестве компонент вектора x выбрать максимальные элементы диагоналей матрицы
А, параллельных главной, включая главную диагональ.
Помоги написать программу для FreePascal

[newerow1989]

var a:array[1..8,1..8] of integer;
    x:array[1..15] of integer;
    i,j,k:integer;
begin
   Randomize;
   For i:=1 to 8 do
   begin
      For j:=1 to 8 do
      begin
         a[i,j]:=Random(21);
         Write(a[i,j],' ');
         If a[i,j]<10 then
            Write(' ');
      end;
      Writeln;
   end;
   Writeln;
   For k:=1 to 8 do
   begin
      x[k]:=a[9-k,1];
      j:=0;
      For i:=9-k to 8 do
      begin
         j:=j+1;
         If x[k]<a[i,j] then
            x[k]:=a[i,j];
      end;
   end;
   For k:=2 to 8 do
   begin
      x[k+7]:=a[1,k];
      j:=k-1;
      For i:=1 to 9-k do
      begin
         j:=j+1;
         If x[k+7]<a[i,j] then
            x[k+7]:=a[i,j];
      end;
   end;
   For k:=1 to 15 do
      Write(x[k],'  ');
   Writeln;
   Readln;
end.

Сложновата задачка. Сойдет?

[Ана88]

Спасссибоо))

[newerow1989]

Пожалуйста!