Ошибка в вашем коде заключается в неправильном использовании оператора if-then-else. Вместо этого вам следует использовать следующее выражение:

Var a,b,c:real;
begin
read(a,b);
writeln ('Введите 2 числа');
if a > b then
c := a / b
else
c := b / a;
writeln('Частное = ',c)
end.

Теперь ваш код должен правильно работать и выводить результат деления введенных чисел.