процедуры в паскаль

[кусака]

помогите исправить ошибку.
задание:
Вычислить Z=(X max - Y min)/2, где X max – максимальный элемент массива X(25); Y max – минимальный элемент массива Y(20), используя подпрограмму – процедуру.


код:
program ex8;
var x:array [1..25] of real;
y:array [1..20] of real;
max,min:real;
p,r:real;
s:real;
i:integer;
procedure f(m,n:real);
var a:real;
begin
a:=(m-n)/2;
end;
begin
writeln('vvedite massiv X');
for i:=1 to 25 do
readln(X[i]);
writeln('vvedite massiv Y');
for i:=1 to 20 do
readln(Y[i]);
writeln('massiv X');
for i:=1 to 25 do
writeln(X[i]:6:2);
writeln('massiv Y');
for i:=1 to 20 do
writeln(Y[i]:6:2);
max:=x[1];
for i:=2 to 25 do
if max< x[i] then max:=x[i];
min:=y[1];
for i:=2 to 20 do
if min> y[i] then min:=y[i];
s:=f(max,min);
writeln('s=',s:6:2);
end.

в строке "s:=f(max,min);" показывает ошибку 143. что делать?

[Don Karleone]

Сообщение от кусака

помогите исправить ошибку.
задание:
Вычислить Z=(X max - Y min)/2, где X max – максимальный элемент массива X(25); Y max – минимальный элемент массива Y(20), используя подпрограмму – процедуру.


код:
program ex8;
var x:array [1..25] of real;
y:array [1..20] of real;
max,min:real;
p,r:real;
s:real;
i:integer;
procedure f(m,n:real);
var a:real;
begin
a:=(m-n)/2;
end;
begin
writeln('vvedite massiv X');
for i:=1 to 25 do
readln(X[i]);
writeln('vvedite massiv Y');
for i:=1 to 20 do
readln(Y[i]);
writeln('massiv X');
for i:=1 to 25 do
writeln(X[i]:6:2);
writeln('massiv Y');
for i:=1 to 20 do
writeln(Y[i]:6:2);
max:=x[1];
for i:=2 to 25 do
if max< x[i] then max:=x[i];
min:=y[1];
for i:=2 to 20 do
if min> y[i] then min:=y[i];
s:=f(max,min);
writeln('s=',s:6:2);
end.

в строке "s:=f(max,min);" показывает ошибку 143. что делать?

у вас прописана процедура с именем f, а процедуру нельзя использовать в выражениях. Если вы пишите "s:=f(max,min)" то соответственно f надо объявлять как функцию, так как функция возвращает значение и ее можно использовать в выражениях.