Помогите,в чем ошибка? пишет встречено 'then' ,а ожидалось ';'
program n_8;
var x,a,b,c,z:integer;
begin
writeln('Нахождение наибольшего числа');
write('Введите значения a,b,c,z>>');
readln(a,b,c,z);
x:=a;
if(a<b) then x:=b
 else(b<c)then x:=c
 else(c<z) then x:=z
writeln ('Наибольшее число 'x= ', x')
end.