Как можно лучше оптимизировать код?

Program Kod;
Var c,s,l,Max,Min,x:Real;
Begin Write('Введите X: '); ReadLn(x);
If x>0 Then Begin
   s:=Sin(x);
   c:=Cos(x);
   l:=Ln(x);
    If s>c Then Begin
    Max:=s;
    Min:=c;
    end
    Else Begin
    Max:=c;
    Min:=s;
    End;
     If l>Max Then
     Max:=l
     Else If l<Min Then
     Min:=l;
      If (c=Min) And (s=Max) Then
      WriteLn('Cos=',c:2:4,' ','Ln=',l:2:4,' ','Sin=',s:2:4);
       If (s=Min) And (c=Max) Then
       WriteLn('Sin=',s:2:4,' ','Ln=',l:2:4,' ','Cos=',c:2:4);
        If (l=Min) And (c=Max) Then
        WriteLn('Ln=',l:2:4,' ','Sin=',s:2:4,' ','Cos=',c:2:4);
         If (l=Min) And (s=Max) Then
         WriteLn('Ln=',l:2:4,' ','Cos=',c:2:4,' ','Sin=',s:2:4);
          If (c=Min) And (l=Max) Then
          WriteLn('Cos=',c:2:4,' ','Sin=',s:2:4,' ','Ln=',l:2:4);
           If (s=Min) And (l=Max) Then
           WriteLn('Sin=',s:2:4,' ','Cos=',c:2:4,' ','Ln=',l:2:4)
           End
Else Begin
s:=Sin(x);
c:=Cos(x);
If Sin(x)>Cos(x) Then
WriteLn('Cos=',c:2:4,' ','Sin=',s:2:4,' ','Ln(x) - не имеет смысла')
Else
WriteLn('Sin=',' ',s:2:4,' ','Cos=',c:2:4,' ','Ln(x) - не имеет смысла');
End
End.