Если сумма трех попарно различных действительных чисел х, у, z меньше единицы, то наименьшее из этих трех чисел заменить полусуммой двух других [Delphi] Поиск ошибок в программе

[student_23]

Здравствуйте! Просьба проверить на ошибки.
Если таковые имеются. Исправить. Спасибо.

Если сумма трех попарно различных действительных чисел х, у, z меньше единицы, то наименьшее из этих трех чисел заменить полусуммой двух других; в противном случае заменить меньшее из х и у полусуммой двух оставшихся значений.

procedure TForm1.Button1Click(Sender: TObject);
var x,y,z: real; 
begin
  x:=StrToFloat (edit1.Text); 
  y:=StrToFloat (edit2.Text);
  z:=StrToFloat (edit3.Text);
  if ((x+y+z)<1) then      
  begin
    if ((x<y) and (x<z)) then 
      x:=(y+z)/2
    else      // если
      begin
        if ((y<x) and (y<z)) then 
                                            y:=(x+z)/2
        else       // если
          z:=(y+x)/2;
      end;
  end
else
  begin
    if (x<y) then
      x:=(y+z)/2
    else
      y:=(x+z)/2;
  end;
  Memo1.Lines.Add ('x=' + FloatToStr(x) + #13 + 'y=' +FloatToStr(y));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Memo1.Clear;
end;

[Serge_Bliznykov]

всё верно кроме вывода - выводить надо все три числа.