скажите что не так в 8-й строчке " Нет перегруженной подпрограммы

Скажите что не так в 8-й строке " Нет перегруженной подпрограммы с таким количеством параметров max"
var a, b, c, d, e, f: integer;
function max (x, y: integer): integer;
begin
if xgt;y then max:=x else max:=y;
end;
begin
readln (a, b, c, d, e);
f:= max(max(a, b), max(c, d),e);
writeln ('f=', f);
end.

Маргарита Брук 2019-05-30 14:34:11

и что необходимо добавить либо убрать