Из трех чисел минимальное и максимальное оставить без изменений, третье возвести в куб - Pascal ABC

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;
      
  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) ;
end.