не компелирует

[Maxim37rus]

Помогите переделать прогу чтобы компелировала в Borland Pascal 7.0

uses crt ;
type Vector=array[0..100,0..100]of real;
Massive=array[0..100,0..100]of real;
var
i,j,m1,m2,n1,n2:integer;
x:Vector;
y:Massive;
ym,xm,z:real;
Procedure Otvet(xm,ym:real);
Begin
Z:=(xm-ym)/2;
Writeln('z=',z);
end;
Begin
Write('m1=');Read(m1);Write('m2='); Read(m2);
Write('n1=');Read(n1);Write('n2='); Read(n2);
For i:=1 to m1 do
begin
for j:=1 to m2 do
begin
write('Введите x[',i,',',j,']=');
Readln(x[i,j]);
end;
end;
For i:=1 to n1 do
begin
for j:=1 to n2 do
begin
write('Введите y[',i,',',j,']=');
Readln(y[i,j]);
end;
end;
xm:=x[1,1];
For i:=1 to m1 do
begin
for j:=1 to m2 do
begin
if xm<=x[i,j]then
begin
xm:=x[i,j];
end;
end;
end;
ym:=y[1,1];
For i:=1 to n1 do
begin
for j:=1 to n2 do
begin
if ym>=y[i,j]then
begin
ym:=y[i,j];
end;
end;
end;
Otvet(xm,ym);
END.

[puporev]

Otvet(xm,ym);
readln  //добавь
END.

[Arigato]

А какие ошибки компилятор показывает?

[Maxim37rus]

ошибка 96 в строке y:Massive; подчеркивает ;

[Mad_Cat]

Error 96 : Too many variables

Значение ошибки 96
Слишком много переменных

Тип ошибки 96
Ошибка компилятора Turbo Pascal

Описание ошибки 96
Нарушены следующие ограничения: общий размер глобальных переменных, описанных в программе или программном модуле, не может превышать 64 Кбайт; размер локальных переменных, описанных в процедуре или функции, не может превышать 64 Кбайт.

А зачем тебе 2 одинаковых типа ? с разными именами?

uses crt ;
type 
Matrix=array[1..10,1..10]of real;
var
i,j,m1,m2,n1,n2:integer;
x,y:Matrix;
ym,xm,z:real;

[Maxim37rus]

Все равно пишет ошибку 96 подчеркивает ; в строке x,y:Matrix; , напишите как она должна выглядеть если не сложно

[Arigato]

А условие задачи есть?

[Maxim37rus]

Написать программу решения следующей задачи: Вычислить , где xmax – максимальный элемент массива X(m), ymin – минимальный элемент массива Y(n). вычисления выполнить в одной подпрограмме. Использовать подпрограмму.

[Maxim37rus]

Helppp ________

[hiho]

function MIN (Y : TArray) : integer;
var
   i : integer;
   ymin : integer;
begin
   ymin := Y[1];
   for i := 2 to High(Y) do if (Y[ymin] > Y[i]) then ymin := i;
   Result := ymin;
end;

Аналогично для X