Функция маx и min!

[Чешитепузо]

У меня в универе заданьеце было решить пример с помощью функций!
Там я прогу дописать не успел, но перед уходом решил проверить на ошибки ! Ошибок не выдало. (Там у нас стоит 6ай Делфа)
вот код функции мах
function max(x,y,z:real):real;
begin
if x>y
and
x>z
then
x:=max
else
y>x
and
y>z
then
y:=max
else
if z>x
and
z>y
then
z:=max;
end;
От нефиг делать решил написать ее дома! НУ ввожу тот же код! Он мне в строке x>z выдает ошибку [Error] Unit1.pas(29): Operator not applicable to this operand type.((
Поползал почитал умных книжек там увидел что сравниваемые данные в круглых скобках. Заключил все в круглые скобки. И мне стал выдавать ошибки на 1ой else [Error] Unit1.pas(32): Not enough actual parameters.
Потом решил проделать контрольный пример который проделывал в универе на 6ой делфе
function Step(N:integer; X:real):real;
var i:integer; y:real;
begin
y:=1;
for i:=1 to N do
y:=y*x;
step:=y; // присваивание функции результата
// вычисления степени
end; // Step

procedure TForm1.Button1Click(Sender: TObject);
begin
// ввод значения числа А и показателя степени М
A:=StrToFloat(Edit1.Text);
M:=StrToInt(Edit2.Text);
// Вызов функции с передачей ей фактических параметров
Z:=Step(5,A);
Z:= Z+Step(3,1/A);
if M=0 then R:=1
else if M>0 then R:=Step(M,A)
else R:=Step(-M,1/A);
Z:=Z/(2*R);
Edit3.Text:=FloatToStrF(Z,fffixed,7 ,5);
end;

end.
И где начинается обработка операций по нажатию кнопки заставил меня в var описать все переменные! когда в 6делфе такого не было! КАк и ошибок связанных с функциями max(x,y,z)
Потом полозил у вас по справке и там почитал что функции мах и min изначально вбиты в делфе , попробовал проделать код который в примере был так мне на мах ошибку выдал мол не знает че это такое! Если не трудно подскажите советом!))

[Sazary]

Функция у вас написана неверно )

function max(x,y,z:real):real;
begin
if (x>y) and (x>z) then max := z
else if (y>x) and (y>z) then max := y
else if (z>x) and (z>y) then max := z;
end;

И советую так ентером не увлекаться ) Проще будет ошибки отлавливать.

[Чешитепузо]

Спасибо огромное! теперь ясна ошибка)