Составьте программу сортировки по возрастанию значений трех переменных: a b c. , умоляю

Var
    a, d, c, t: integer;

begin
    readln(a, d, c);
    if a < d then begin t := a;a := d;d := t; end;
    if a < c then begin t := a;a := c;c := t; end;
    if d < c then begin t := d;d := c;c := t; end;
    writeln(a, ' ', d, ' ', c);
end.