Прошу проверить код

[pandaaaaa]

uses crt;

procedure Ge(var n,m:integer);
begin
 write('input length for x (max 65536): ');
 read(m);
 write('input length for y (max 65536): ');
 read(n);
end;

procedure RaFMa(var ma:array of integer,m,n);
begin
 randomize;
 for i:=1 to n do
 begin
  for ii:=1 to m do
  ma[ii,i]:=random(65536)-32768;
 end;
end;

PrFMa(ma,n,m);
begin
for i:=1 to n do
 begin
  for ii:=1 to m do
  write(ma[ii,i],' ')
  writeln;
 end;
end;


var ma:array [1..65536,1..65536] of integer;
    i,ii,n,m,i1,ii1:integer;
    min:integer;

begin

ge(n,m);

RaFMa(ma,m,n);

PrFMa(ma,n,m);

for i:=1 to n do
begin
 for ii:=1 to m do
 begin
  for i1:=1 to n do
  for ii1:=1 to m do
  begin
   if (ma[ii1,i1] < min) then
   begin;
    min:=ma[ii1,i1];
    ma[ii1,i1]:=32767;
   end;
  end;
  write(min,' ');
 end;
 writeln;
end;

delay(3000);

end.

[Arigato]

В каком плане проверить? Он компилируется?

[pandaaaaa]

нет, не компилируется =(

[Arigato]

Что за ошибка и где?
Не уверен, что в Турбо Паскале такое пройдет: var ma:array [1..65536,1..65536] of integer;
Во-первых, максимальный индекс 65535, во-вторых, данные не должны более 1 сегмента памяти занимать, т.е. не более 65536 байт.
А для чего такие огромные массивы?

[pandaaaaa]

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

Что за ошибка и где?
Не уверен, что в Турбо Паскале такое пройдет: var ma:array [1..65536,1..65536] of integer;
Во-первых, максимальный индекс 65535, во-вторых, данные не должны более 1 сегмента памяти занимать, т.е. не более 65536 байт.
А для чего такие огромные массивы?

пробовал на АВС и free, ошибочка:
task7_2.pas(11,40) Fatal: Syntax error, ")" expected but "," found
task7_2.pas(0) Fatal: Compilation aborted

procedure RaFMa(var ma:array of integer,m,n);

в этой строчке
Почему такие огромные? Ну...я сам не знаю :D

[Arigato]

procedure RaFMa(var ma:array of integer,m,n);
А что там за m,n после запятой? Да и массивы так не передаются, надо сначала тип объявить.

Почему такие огромные? Ну...я сам не знаю
И кто задачу решал?

[pandaaaaa]

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

procedure RaFMa(var ma:array of integer,m,n);
А что там за m,n после запятой? Да и массивы так не передаются, надо сначала тип объявить.

Почему такие огромные? Ну...я сам не знаю
И кто задачу решал?

решал, прост немного не в адеквате был и взбрело в голову брать такие массивы.