паскаль! скажите где ошибка?

[кусака]

задание:
Вычислить 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. что делать?

[DoDge_VipeR]

s:=f(max,min);

заменить на

f(max,min,s);

[кусака]

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

s:=f(max,min);

заменить на

f(max,min,s);

пишет что скобки не хватает.

[DoDge_VipeR]

а тут то зачем исправил?

procedure f(m,n:real);
var a:real;
begin
a:=(m-n)/2;
end;

вертай как было)

procedure f(m,n:real;var a:real;);
begin
a:=(m-n)/2;
end;