Двумерный массив

[Losfos]

Помогите составить программу в Lazarus
Задана целочисленная квадратная матрица n-го порядка. Найти номера строк, которые имеют:
а) все одинаковые элементы;
б) элементы, расположенные по возрастанию

[скалогрыз]

nadeus eto pomozhet!
tut tol'ko chast (sami reshenia)
ne hvataet procedury sozdania matricy i procedure vivoda matricy na erkan.

Код: Выделить всё

Константа 
  Н = 5;
переменные
  M : массив [1..Н,1..Н] типа Целоечисло;

процедура ЗаданиеА;
переменные
  и : целоечисло;
  джи: целоечисло;
начало
  для джи от 1 до Н делай начало
    и := 2;
    пока (и <= Н) и (M[1, джи] = M[и, джи]) делай
      и := и + 1; 
    если и > Н тогда
      написать ( джи);
  конец;
конец;

процедура ЗаданиеБ;
переменные
  и : целоечисло;
  джи: целоечисло;
начало
  для джи от 1 до Н делай начало
    и :=2;
    пока (и <= Н) и (M[и-1, джи] < M[и, джи]) делай
      и := и + 1; 
    если и > Н тогда
      написать ( джи );
  конец;
конец;

nadeus, eto pomozhet! day znat'!!!

[vada]

nadeus, eto pomozhet! day znat'!!!

Извращенец!