Оператор безусловного перехода и оператор варинта. - Pascal

Формулировка задачи:

1.Даны три вещественных числа x,y,z.Найти максимальное из них.(решить с помощью оператора безусловного перехода или с помощью оператора варианта) 2.Написать программу решения квадратного уравнения.Программы должны проверяться правильностью исходных данных и в случаи,когда коэффициент при второй степени неизвестного равен нулю,выводит соответсвующее сообщение.Ниже представленный рекомендуемый вид во время работы программы(данные введеные пользователем,выделены полужирным шрифтом). Решение квадратного уравнения. Введите в данной строке значения коэффициента и нажмите (Enter) ->12 27 -10 Корни уравнения : x1=-25.551; x2=-28.449. Очень прошу попробуйте решить хоть одну)

Решение задачи: «Оператор безусловного перехода и оператор варинта.»

Листинг программы

var x,y,z,a:byte;
label 1;
begin
writeln('vvedite 3 chisla');
readln(x,y,x);
if (x>y) and (x>z) then begin a:=x; goto 1; end
else begin
if (y>x) and (y>z) then begin a:=y; goto 1; end
else begin a:=z; goto 1; end; end;
1:writeln('max= ',a);
readln;
end.

Объяснение кода листинга программы

Переменные x, y и z инициализируются значением типа byte.
Выводится сообщение «введите 3 числа», и считываются три числа с помощью функции readln().
Сравниваются три числа. Если первое число больше второго и третьего, то переменной a присваивается значение первого числа и выполняется оператор goto 1. Если второе число больше первого и третьего, то переменной a присваивается значение второго числа и выполняется оператор goto 1. Если третье число больше первого и второго, то переменной a присваивается значение третьего числа и выполняется оператор goto 1.
Если ни одно из условий не выполнилось, то переменной a присваивается значение третьего числа.
Выводится сообщение «max= », и выполняется функция readln() для завершения программы.