в матрице найти максимальный элемент для каждой её диагонали паралллельной побочной

[92Edik]

Дополните пожалуйста прогу для правильной работу(такое ощущение что это полная чушь)

Дана квадратная матрица А порядка М.Найти максимальный элемент для каждой ее
диагонали паралллельной побочной( начиная с одноэлементной диагонали А1,А)

Program Ex_86;
const m=5;
var a:array[1..100] of integer;
    i,k,n:integer;
Begin
for i:=1 to n do 
for k:=1 to n do
readln(a[i,k]);
for i:=1 to m do
Begin
for k:=1 to n do
writeln('строка',i);
 end;
end;
writeln('0');
readln
end.

___________
Неужели так трудно запомнить?!
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Не забывайте об этом!

Модератор.

[_Alerter_]

uses crt;
const m = 6;
type mas = array [1 .. m, 1 .. m] of integer;
var
	i, j, x, max : integer;
	a : mas;

procedure InitArr(var arr : mas; n : integer);
var
	i, j : integer;
begin
	Randomize;
	for i := 1 to n do
		for j := 1 to n do
			arr[i, j] := Random(100);
end;

procedure ShowArr(arr : mas; n : integer);
var
	i, j : integer;
begin
	for i := 1 to n do
	begin
		for j := 1 to n do
			Write(arr[i, j] : 3, ' ');
		WriteLn;
	end;
end;

begin
	ClrScr;
	InitArr(a, m);
	ShowArr(a, m);
	i := 1;
	j := 1;
	x := 1;
	WriteLn('Maximalnye elementy diagonalei:');
	while x < m do {просматриваем диагонали, лежащие выше побочной}
	begin
		j := 1;
		i := x;
		max := a[i, j]; {запоминаем первый элемент диагонали}
		while i > 0 do
		begin
			if a[i, j] > max then
				max := a[i, j];
			Dec(i);
			Inc(j);
		end;
		Inc(x);
		WriteLn(max); {Выводим максимальный элемент}
	end;
	x := 2;
	while x <= m do {просматриваем диагонали, лежащие ниже побочной}
	begin
		i := m;
		j := x;
		max := a[i, j]; {запоминаем первый элемент диагонали}
		while j <= m do
		begin
			if a[i, j] > max then 
				max := a[i, j];
			Dec(i);
			Inc(j);
		end;
		Inc(x);
		WriteLn(max); {Выводим максимальный элемент}
	end;
	ReadLn;
end.