Сумма максимальных элементов матриц в Pascal

[Бармалей]

Даны три матрицы – А, В, С. Вычислить сумму максимальных по модулю элементов матриц. Ввод исходных данных и их контрольный вывод оформить как процедуры, а обработку – в виде функции или процедуры.

program lab1;
uses crt;
type matr = array[1..10, 1..10] of integer;
var A, B, C : matr;
	 sum: real;
procedure InMatr (var M:matr; n:integer; matr_name:char);
	var i, j: integer;
	begin
	writeln('Vvedite',n,'-mernuyu matricu',matr_name);
	for i:=1 to n do
		begin
		for j:=1 to n do
		read(M[i, j]);
		end;
	end;
procedure OutMatr (M:matr; n:integer; matr_name:char);
	var i, j: integer;
	begin
	writeln('Matrica',matr_name,': ');
	for i:=1 to n do
		begin
		for j:=1 to n do
		write(M[i, j]);
		writeln ('');
		end;
	end;
function MaxMod (M:matr; n:integer):real;
	var i, j: integer;
		 mm: real;
	begin
	mm:=0;
	for i:=1 to n do
		begin
		for j:=1 to n do
		if abs(M[i, j]) > abs(mm)
		then mm:=M[i, j];
		end;
	end;
Begin
clrscr;
InMatr(A, 2, 'A'); InMatr(B, 4, 'B'); InMatr(C, 3, 'C');
OutMatr(A, 2, 'A'); OutMatr(B, 4, 'B'); OutMatr(C, 3, 'C');
sum:= MaxMod(A, 2) + MaxMod(B, 4) + MaxMod(C, 3);
writeln('Summa maximalnih po modulyu elementov matric A,B,C =',sum);
End.

При попытке выполнить пишет - Error 200: Division by zero
Помогите пожалуйста разобраться что не так.

[quit]

Деление на ноль

[Бармалей]

Это я понял. Я не понял откуда оно взялось.

[Stilet]

Бармалей

Паскаля под рукой сейчас нет, но на твоем месте я бы пошагово по программе прошелся клавишами F7 F8 и посмотрел где деление
Но может быть сам паскаль глючит. Попробуй достать другой дистрибутив или запустить его под DosBox

[Бармалей]

Сообщение от Stilet

Паскаля под рукой сейчас нет, но на твоем месте я бы пошагово по программе прошелся клавишами F7 F8 и посмотрел где деление

Попробовал - выделяется слово Begin в самом конце программы, где я вызываю процедуры.

[ОДИНОЧЕСТВО В СЕТИ]

все работает- меняйте компилятор! и добавьте

function MaxMod (M:matr; n:integer):real;
	var i, j: integer;
		 mm: real;
	begin
	mm:=0;
	for i:=1 to n do
		begin
		for j:=1 to n do
		if abs(M[i, j]) > abs(mm)
		then mm:=M[i, j];
		end;
maxmod:=mm;
	end;

[Бармалей]

Скачал себе другой Pascal работает, но результат почему то не выводится.
А зачем нужна строка maxmod:=mm;? Ведь MaxMod - функция и она должна выводить результат в главную программу, или я что-то путаю?

[ОДИНОЧЕСТВО В СЕТИ]

Ведь MaxMod - функция и она должна выводить результат в главную программу, или я что-то путаю?

а где в вашей функции идет присвоение ей результата?
и чего она должна передавать?

но результат почему то не выводится.

поставь

 readln;

перед последним end.

[Бармалей]

А разве результат не должен выводиться строкой
writeln('Summa maximalnih po modulyu elementov matric A,B,C =',sum);
readln используется для ввода значений а не вывода на экран.

[ОДИНОЧЕСТВО В СЕТИ]

readln используется для ввода значений а не вывода на экран.

если ты такой умный то чего ты тут делаешь?
слушай тётю!
сказали ставь

readln;

значит ставь!