Известно, что из четырех чисел a1, a2, a3 и a4 одно отлично от трех других, равных между собой; присвоить номер этого числа переменной n — Delphi(Делфи)

procedure TForm1.Button1Click(Sender: TObject);
var
  a1, a2, a3, a4, n: integer;
begin
  a1 := strtoint(edit1.Text);
  a2 := strtoint(edit2.Text);
  a3 := strtoint(edit3.Text);
  a4 := strtoint(edit4.Text);
  if a1 = a2 then
    if a3 = a1 then
      n := 4
    Else
      n := 3
  Else if a2 = a3 then
    n := 1
  Else
    n := 2;
  Edit5.Text := IntToStr(n);
end;