How to CORRECTLY compare 3 numbers in Pascal?

Question

Delphi

begin
  if m > e then
   begin
   if m < f then memo1.Lines.Add('Самый популярный ФИЛФАК ' + inttostr(f) + ' заявок') else
    if m = f then memo1.Lines.Add('Самый популярные МИФИТ и ФИЛФАК ' + inttostr(f) + ' заявок') else
    memo1.Lines.Add('Самый популярный МИФИТ ' + inttostr(m) + ' заявок')
   end
  else
    if m < e then
       begin
       if e > f then memo1.Lines.Add('Самый популярный ЕНО ' + inttostr(e) + ' заявок') else
        if e = f then memo1.Lines.Add('Самый популярные ЕНО и ФИЛФАК ' + inttostr(e) + ' заявок') else
        memo1.Lines.Add('Самый популярный ФИЛФАК ' + inttostr(f) + ' заявок')
       end
    else
     if m > f then memo1.Lines.Add('Самый популярные МИФИТ и ЕНО ' + inttostr(m) + ' заявок') else
      begin
       if f > m then memo1.Lines.Add('Самый популярный ФИЛФАК ' + inttostr(f) + ' заявок') else
        memo1.Lines.Add('Все факультеты одиннаково популярны ' + inttostr(m) + ' заявок');
      end;
end;

The bottom line is that if you enter 2 MIFIT, 2 ENO and 1 FILFAK, he displays (The most popular MIFIT). That is, even under a false condition M > E (this is not so, they are equal) - he proceeds to fulfill this condition. Because everything inside is false, he uses

else
    memo1.Lines.Add('Самый популярный МИФИТ ' + inttostr(m) + ' заявок')

Variables m,e,f - the first letters of the words MIFIT, ENO and FILFAK. If anyone does not understand

Answer 1

Why not take and sort the array?