Помогите пожалуйста с задачкой Паскаль

[art_melnichenko]

Тема работы - Работа с двумерными массивами
Цель работы - приобретение навыков работы с матрицами с использованием процедур. В работе необходимо максимально использовать аппарат процедур и функций.

Если элементы первой строки матрицы образуют неубывающую последовательность, то элементы главной диагонали матрицы умножить на 2, иначе – все элементы матрицы уменьшить на 5.

Желательно с комментариями к каждой строчке

[NOOB]

Объяви массив где тебе надо:

mas : array [1..10,1..10] of integer; // массив 10 на 10

Вот функция и процедуры:

function MasBool() : boolean; 
{функция вернет true, если неубывающая последовательность в первой строке матрицы, в противном случае false}
var
  i, tmp : integer;
begin
  Result:=True;
  tmp:=mas[1,1];
  for i:=2 to 10 do
  begin
    if tmp>mas[i,i] then  
{проверяем, если хоть раз неубывающая последовательность прервется, вернем false}
    begin
      Result:=False;
      Break;
    end;
  end;
end;

procedure MasBoolTrue();
{Умножает главную диагональ массива на 2}
begin
var
  i : integer;
begin
  for i:=1 to 10 do
  begin
    mas[i,i]:=mas[i,i]*2;
  end;
end;

procedure MasBoolFalse();
{Умножает все элементы массива на 5}
begin
var
  i,j : integer;
begin
  for i:=1 to 10 do
  begin
    for j:=1 to 10 do
    begin
      mas[i,j]:=mas[i,j]*5;
    end;
  end;
end;

[capta1n]

program capta1n;
const
 n = 3; { Размер матрицы }
type
 int = 1..n; {Границы матрицы}
 dataitem = array [int,int] of integer; {Тип матрицы}
var
 a : dataitem; {Матрица}
 i,k : int; {Счетчики}

function check ( item : dataitem ) : boolean; {Функция проверки массива на условие}
var
 j : int; {Счетчик}
begin

  check:=true; {Функция истинна до тех пор, пока не будут соблюдены условия или условия не наступят - тогда функция будет истинной}
  for j:=low(item) to high(item)-1 do {от самого нижнего индекса до верхнего}
   if item[1,j]>item[1,j+1] then {Если условие не соблюдается - функция возвращает отрицание}
   begin
     check:=false; {Отрицание}
     break {Выход из цикла}
   end

end;

procedure diag ( var item : dataitem ); {Процедура прохода массива по главной диагонали}
var
 k : int; {Счетчик}
begin
  for k:=low(item) to high(item) do item[k,k]:=2*(item[k,k]); {Умножение элементов на 2}
end;

procedure minus ( var item : dataitem ); { Процедура преобразования всего массива - уменьшение каждого элемента на 5}
var
 h,g : int; {Счетчики}
begin
  for h:=low(item) to high(item) do
   for g:=low(item) to high(item) do dec(item[h,g],5) {Процедура dec уменьшает на 5 каждый элемент массива }
end;

begin {Начало головной программы}

  writeln ('Vvedite massiv: '); {Ввод вами массива - каждое число через пробел ( в строке больше размера строки массива данные игнорируются) или ENTER}
  for i:=1 to n do
  begin
    for k:=1 to n-1 do read (a[i,k]);
    readln(a[i,n]) {Чтение последнего в строке числа}
  end;

  if check(a) then diag (a) {Если функция истинна, то выполняем умножение главной диагонали}
              else minus (a); {Если ложна - каждый элемент уменьшаем на 5}

  writeln ('Vash massiv: '); {Новый массив согласно условию задачи}
  for i:=1 to n do
  begin
    for k:=1 to n do write (a[i,k],'|');
    writeln
  end;

  readln; {<ENTER>}

end. {Конец головной программы}

[art_melnichenko]

capta1n!!!

Может я что то не так понимаю, но у меня в условии указано что если последовательность убывающая, то все элементы матрицы уменьшить на 5. А программа уменьшает на 2 . Помогите пожалуйста поправить!!!

[capta1n]

ой - че-то я промахнулся - все лишь поменять одну цифру ну и комменты подправить