Даны три целых числа A,B и C.Записать числа в порядке убыванияПлз помогите в Паскале

Program n1;
procedure Sort(var A, B, C: integer);
var
t: integer;
begin
if A t := B;
B := A;
A := t
end;
if A t := C;
C := A;
A := t
end;
if B 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, , B, , C)
end.