Самое простое, чтоб без заморочек, занести в массив и отсортировать его
var
  a:array[1..3]of real;
  i,j:integer;
  p:real;
begin
for i:=1 to 3 do
  begin
  write('Введите число: ');
  readln(a[i]);
  end;
for i:=1 to 3 do
  for j:=1 to 3 do
      if a[j]<a[i] then
        begin
        p:=a[i];
        a[i]:=a[j];
        a[j]:=p;
        end;
for i:=1 to 3 do write(a[i],' ')
end.