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

[Maxim37rus]

прога написана в pascal ABC

uses crt ;
var P:array[0..4]of real;T:array[0..4]of real;i:integer;h:real;
Function Hcpednee(P:array[0..4]of real;T:array[0..4]of real):real;
Begin
T[0]:=273.15; P[0]:=760;
For i:=1 to 4 do begin
h:=h+18400*T[i]*(ln(P[0]/P[i])/ln(10))/T[0];
end;
h:=h/4;
end;
BEGIN
For i:=1 to 4 do begin Write('T[',i,']=');read(T[i]);end;
For i:=1 to 4 do begin Write('P[',i,']=');read(P[i]);end;
Hcpednee(P,T);
Writeln('Средняя высота полята аэростата H=',h);
END.

Но в Borland Pascal 7.0 не запускается пишет ошибка 54
вот в этом месте я его подчеркнул___
Function Hcpednee___(P:array[0..4]of real;T:array[0..4]of real):real;

И еше

uses crt ;
Var y:array[0..255,0..255]of real;
x:array[0..255]of real;
i,j,n,m:integer;
Begin
Write('n=');Read(n);
Write('m=');Read(m);
For i:=1 to n do begin Write();Read(x[i]);end;
For j:=1 to m do begin Write();Read(x[j]);end;
For i:=1 to n do begin For j:=1 to m do begin
IF x[i]>x[j]then begin y[i,j]:=sqrt(x[i]-x[j]);
end;end;end;
For i:=1 to n do begin For j:=1 to m do begin
IF x[i]<=x[j]then begin y[i,j]:=sqr(cos(x[i]-sqr(x[j])))*cos(x[i]-sqr(x[j]));
end;end;end;
For i:=1 to n do begin For j:=1 to m do begin
Writeln('y[',i,',',j,']=',y[i,j]);
end;end;end.

Пишет ошибку 22 подчеркивает ; в
Var y:array[0..255,0..255]of real;

[Mad_Cat]

uses crt ;
type Vector=array[0..4]of real;
var P:Vector;T:Vector;i:integer;h:real;
Function Hcpednee(P:Vector;T:Vector):real;
Begin
T[0]:=273.15; P[0]:=760;
For i:=1 to 4 do begin
h:=h+18400*T[i]*(ln(P[0]/P[i])/ln(10))/T[0];
end;
h:=h/4;
end;
BEGIN
For i:=1 to 4 do begin Write('T[',i,']=');read(T[i]);end;
For i:=1 to 4 do begin Write('P[',i,']=');read(P[i]);end;
Hcpednee(P,T);
Writeln('Средняя высота полята аэростата H=',h);
END.

[Maxim37rus]

Спс , а как во 2 проге с 2-х мерным массивом ??

[Mad_Cat]

error 22 означает

Значение ошибки 22
Слишком большая структура

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

Описание ошибки 22
Максимально допустимый размер любого структурного типа составляет 65520 байт.

[Maxim37rus]

а как правильно ?

[Mad_Cat]

uses crt ;
Var y:array[1..100,1..100]of real;
x:array[1..100]of real;
i,j,n,m:integer;
Begin
Write('n=');Read(n);
Write('m=');Read(m);
For i:=1 to n do begin Write();Read(x[i]);end;
For j:=1 to m do begin Write();Read(x[j]);end;
For i:=1 to n do begin For j:=1 to m do begin
IF x[i]>x[j]then begin y[i,j]:=sqrt(x[i]-x[j]);
end;end;end;
For i:=1 to n do begin For j:=1 to m do begin
IF x[i]<=x[j]then begin y[i,j]:=sqr(cos(x[i]-sqr(x[j])))*cos(x[i]-sqr(x[j]));
end;end;end;
For i:=1 to n do begin For j:=1 to m do begin
Writeln('y[',i,',',j,']=',y[i,j]);
end;end;end.

[Maxim37rus]

все равно не компелирует теперь в строчке
For i:=1 to n do begin Write();Read(x[i]);end;

подчеркивает ()

[Mad_Cat]

Write()

а что ты хотел этим сказать?
убери

write();