Найти наибольшее значение посреди чисел x и y,минимальное значение посреди чисел

var x,y,a,b:integer;
function min(x,y:integer):integer; // функция для определения минимума
begin
if (xgt;y) then min:=y //если х больше, то вывести у
else min:=x; // по другому вывести х
end;
function max(x,y:integer):integer; //функция определения максимума
begin
if(xgt;y) then max:=x // если х больше, то вывести его
else max:=y; // если у больше, то вывести его
end;
begin
write(введите х и у); //запрос данных на ввод
read(x,y);
write(введите a и b); //запрос данных на вывод
read(a,b);
writeLn(max(x,y));//вывод данных
writeln(min(a,b)); //вывод данных
end.