Программа создания матрицы из исходной по заданному алгоритму

[milton]

Программа создания матрицы из исходной по такому алгоритму: если элемент исходной матрицы > среднего зн-ия эл-тов строки, то в искомой матрице соответствующий элемент 1, иначе 0.
Помогите, пожалуйста, с 25 по порядку члена(при любых размерностях n матрицы) невозможно продолжать ввод новых элементов
В задании написано, чтобы в теле программы были лишь процедуры и функции, поэтому я все так и оформил.

program dvoimat;
uses crt;
const nmax=26;
type matr=array[1..nmax,1..nmax] of integer;
     mas=array[1..nmax] of real;
var matrix:matr;
n:integer; c:mas;
procedure entermatr(var a:matr; var n: integer);
var i,j:integer;
begin
repeat
write('размерность квадратной матрицы (от 5 до 25) ');
read(n);
until (n>=5) and (n<=25);
for i:=1 to n do
for j:=1 to n do begin
writeln('введите А[',i,j,']=');
read(A[i,j]);
end;
end;
procedure writematr(a:matr; n:integer);
var i,j: integer;
begin
for i:=1 to n do  begin
for j:=1 to n do
write(a[i,j],' ');
writeln; end;
end;
procedure sredn(A:matr;n:integer;var B:mas); {заполняю массив средними значениями соответствующих строчек}
var i,j:integer; s:real;
begin
for i:=1 to n do  begin s:=0;
for j:=1 to n do
s:=s+a[i,j];
b[i]:=s/n;
end;
for i:=1 to n do
writeln(b[i]);
end;
procedure preobr(var a:matr; n:integer; b:mas); {строю новую матрицу}
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
if a[i,j]>b[i] then a[i,j]:=1 else a[i,j]:=0;
end;
begin
clrscr;
entermatr(matrix,n);
writematr(matrix,n);
sredn(matrix,n,c);
writematr(matrix,n);
end.

[Stilet]

с 25 по порядку члена(при любых размерностях n матрицы) невозможно продолжать ввод новых элементов

Понятное дело, у тебя ограничение на размерность:
const nmax=26; плюс к тому сам цикл лимитирован: until (n>=5) and (n<=25); Поставь больше и радуйся.

Признавайся - стибрил код?

[milton]

нет, сам писал. ограничение стоит на размерность матрицы, а не на количество членов. Делал по образцу методички (только там матрица не квадратная) . а ограничения на размерность стоят , тк в задании указано, чтобы 5<=n<=25.
Насчет стибривания: я сам хочу научиться программировать, ведь все когда-то начинали, разве не так?
И как в таком случае сохраняя ограничения на размерность матрицы сделать так, чтобы можно было бы ввести 25 и далее члены( не выходя за рамки размерности) ?

[Stilet]

не выходя за рамки размерности

хм... ну поставь nmax=maxint это самая большая размерность в паскале, если не ошибаюсь.
Все равно больше 25 ты не введеш - сам сказал:"тк в задании указано, чтобы 5<=n<=25"

[milton]

так все, кажись я понял в чем дело. Похоже это уже глюки PacalABC, в обычной среде все работает корректно. В любом случае спасибо