Мин и макс (PASCAL)

[Poopy]

Макс и мин значение из трех заданных чисел оставить без изменения, а третье заменить его кубами.Помогите вывести 3 число.

var
    a1, a2, a3, max,min: integer;
 
begin
    write ('Введите три числа: ');
    readln (a1, a2, a3);
 
    if a1 >= a2 then  
        max := a1
   else
        max := a2;

    if a3 > max then 
        max := a3;
      

  if a1 < a2 then
        min := a1
    else
        min := a2;
 
    if a3 < min then
        min := a3;
      
    writeln ('Максимальное из них: ', max);
 writeln ('min из них: ', min);
end.

[Stilet]

Если не ошибаюсь:

if a1<a2 then begin 
 if a2<a3 then writeln('Макс=',a3,' Мин=',a1,' Третье=',a2*a2*a2) 
 else writeln('Макс=',a2,' Мин=',a1,' Третье=',a3*a3*a3) ;
end else
 if a1<a3 then writeln('Макс=',a3,' Мин=',a2,' Третье=',a1*a1*a1) 
 else writeln('Макс=',a1,' Мин=',a3,' Третье=',a2*a2*a2) ;