с клавиатуры заданы 3 числа,найдите наибольшее из этих чисел , вывести эти числа на экран в порядке убывания

Program n1;
procedure Sort(var A, B, C: integer);
var t: integer;
begin
if A < B then begin
t := B;
B := A;
A := t
end;
if A < C then begin
t := C;
C := A;
A := t
end;
if B < C then begin
t := C;
C := B;
B := t
end
end;
var
a,b,c: integer;
begin
writeln('Введите три числа: ');
readln(a,b,c);
Sort(a,b,c);
writeln('наибольшее: ',a);
writeln('числа: ',a,' ',b,' ',c);
end.