Введите с клавиатуры два числа. Большее из них уменьшить в 2 раза а для другого найти ему противоположное

Program aaa;
var a, b: real; 
begin 
  writeln (Введите два числа);
  readln (a,b);
  writeln;
  if agt;b
    then begin a:=a/2; b:=-1*b; writeln (a:5,b:5) end
    else  
       if bgt;a
          then begin b:=b/2; a:=-1*a; writeln (a:5,b:5) end
          else writeln (Числа равны);
end.