Помогите пожалуйста. Превосходнее срочноо

1)
var x,y:real;
begin
write('x = ');
readln(x);
if ((x gt;= 0) AND (x lt;= 2)) then y:=1.5*x;
if ((x gt; 2) AND (x lt;= 6)) then y:=3;
if ((x gt; 6) AND (x lt;= 8)) then y:=-1.5*x+12;
if ((x lt; 0) OR (x gt; 8)) then writeln ('Функция не существует в данной точке!!') else
writeln('При x = ', x, ' функция воспринимает значение = ', y);
end.

2) var x,y,z,min:real;
begin
write('Введите 1ое значение: ');
readln(x);
write('Введите 2ое значение: ');
readln(y);
write('Введите 3е значение: ');
readln(z);
min:=x;
if (min gt; y) then min:=y;
if (min gt; z) then min:=z;
if (min = x) then x:=1;
if (min = y) then y:=1;
if (min = z) then z:=1;
WRITELN;
writeln('x = ',x ,', y = ',y ,', z = ',z);
end.