Задать двумерный массив, вывести на экран отдельно главную и побочную диагонали, отсортировать по убыванию методом пузырька

[CookieStar]

ещё вычеркнуть эллемент, стоящий на пересечении этих диагоналей.
Заранее спасибо, буду оочень благодарна!

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

[Lasur]

В чем неверно? У вас есть наработки? Если есть - выложите их.

[CookieStar]

const m =9;
type m_rr  = array [1..m,1..m] of integer;
procedure init _ array
(var a: m_arr; m: integer);
var
n, i, j,b,k : integer;
begin
randomize
for i:= 1 to m do
for j:= 1 to m do
a [i,j]:= random (n+10) - 8;
end;
for i:= 1 to m do 
for j:= 1 to m do
begin 
if i=j then b[k] = a[i;j]
if i+j = n+1 then b[k] = a [i;j];
writeln;
end;
end;
procedure processing_array (var a:m_arr; m:integer);
var
i,j, amin, amax: integer;
begin
amin:= a[1,1];
amax:= a[1,1];
for i:= 1 to m do
for j:= 1 to m 
begin
if a [i,j] < amin then amin:= a [i,j];
if a [i,j] > a max then amax:= a [i,j];

ну текст вывода двумерного массива я знаю вроде

на самом деле я понимаю в общих чертах только
а так все это для меня абракадабра
инфы в школе не было на надлежащем уровне
а сейчас ад какой-то начался
я прям не знаю что делать, может книгу какую посоветуете?

я написала ниже, спасибо что откликнулись, значит надежда есть)

[rUs_LAN]

А я в школе ничего не делал, даже ходил туда редко, нафига тебе то паскаль?
неужели в школах теперь заставляют что-то делать о_0

п.с. а если хочешь стать программистом мне кажется лучше учить С + +, но это мое имхо
п.п.с. google translate

[viron]

const
  m = 9;  // размер массива. число строк и столбцов = 9


var
  a: array[1..m, 1..m] of Integer;  // массив
  i,j: Integer;
  glDiag, pobDiag: array[1..m] of Integer;  // здесь будем хранить главную и побочную диагональ
  t: Boolean;
  temp: Integer;
begin
  Randomize();  // генератор случайных чисел

  // заполняем двумерный массив случайными целыми числами
  for i:= 1 to m do
    for j:= 1 to m do
      a[i,j]:= random(20) - 8;  // random(20) - случайное целое число от 0 до 19


  // печать главной диагонали
  for i:= 1 to 6 do
  begin
    glDiag[i]:= a[i][i];
    Write(glDiag[i], ' ');
  end;

  Writeln;


  // печатаем побочную диагональ
  for i:= 1 to 6 do
  begin
    pobDiag[i]:= a[i][m-i+1];
    Write(pobDiag[i], ' ');
  end;

  Writeln;

  // сортировка главной диагонали
  t:= True;
  while (t = True) do
  begin
    t:= False;
    for i:= 1 to m-1 do
      if glDiag[i] < glDiag[i+1] then
        begin
          temp:= glDiag[i];
          glDiag[i]:= glDiag[i+1];
          glDiag[i+1]:= temp;
          t:= True;
        end;
  end;

  // сортировка побочной диагонали
  t:= True;
  while (t = True) do
  begin
    t:= False;
    for i:= 1 to m-1 do
      if pobDiag[i] < pobDiag[i+1] then
        begin
          temp:= pobDiag[i];
          pobDiag[i]:= pobDiag[i+1];
          pobDiag[i+1]:= temp;
          t:= True;
        end;
  end;

  // напечатаем результат
  for i:= 1 to m do
    Write(glDiag[i], ' ');

  Writeln;

  for i:= 1 to m do
    Write(pobDiag[i], ' ');


  Readln; // чтобы окно сразу не закрывалось
end.

[rUs_LAN]

зачем же так людей путать...

во 1
с++ detected!)
во 2

const
  m = 9;  // размер массива. число строк и столбцов = 9

 for i:= 1 to 6 do

?!!

// печатаем побочную диагональ
  for i:= 1 to 6 do
  begin
    pobDiag[i]:= a[i][m-i+1];
    Write(pobDiag[i], ' ');
  end;

помоему должно быть наоборот тоесть

pobDiag[i]:= a[m-i+1][i];

и 3 тоесть опять про 1вое
в паскале индеки массивов обозначаются a[i,j] а не а[i][j]

[CookieStar]

Огромное Спасибо!!!
я вас обожаю!