с клавиатуры заданы 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 begint := C;C := A;A := tend;if B < C then begint := C;C := B;B := tendend;vara,b,c: integer;beginwriteln('Введите три числа: ');readln(a,b,c); Sort(a,b,c); writeln('наибольшее: ',a);writeln('числа: ',a,' ',b,' ',c);end.