Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел - Free Pascal

var a, b, c, mi, ma: real;
begin
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  write('c = ');
  readln(c);
 
  if a < b then
    begin mi := a; ma := b; end
  else
    begin ma := a; mi := b; end;
 
  if c < mi
    then  mi := c
    else  if c > ma  then  ma := c;
 
  writeln('Min = ', mi);
  writeln('Max = ', ma);
  readln;
end.