паскаль

[Jone200991]

Наибольшее из 3-х чисел x,y,z заменить на (-1). Числа вывести в той же последовательности.

Program r;
uses crt;
var x,y,z,S:integer;
begin
write('1-oe chislo');read(x);
write('2-oe chislo');read(y);
write('2-oe chislo');readln(z);
if(x>y) then S:=x else S:=y;
if(S<z) then S:=z;
S:=-1;
writeln('Rezulitat: ,x:5:2,'',y:6:2,'',z:7:2');
readkey;
end.

Что не правильно, я новичок!

[Mad_Cat]

if (x>=y) and (x>=z) then y:=-1
else
if (y>=x) and (y>=z) then y:=-1;
else 
if (z>=y) and (x=<z) then z:=-1;