В ступорe. Помогите с Delphi.

Question

Помогите 
23.Даны два числа. Написать программу, которая меньшее из них возводит в квадрат, а большее оставляет без изменения. Если числа равны, то они не должны быть изменены 
 
Задание лёгкое, но как мне определить меньшее и большее число?

Аааа)) ) понял нужно написать 
if edit1.Text > Edit2.Text then // если первое больше то 
lbl1.Caption:= Edit1.Text; 
 
if edit1.Text < Edit2.Text then // если второе больше то 
lbl1.Caption:=Edit2.Text 
 
Правильно ли я понял?

Антошка Макоткин · Accepted Answer

var 
a,b:real; 
begin 
a := strtofloat(edit1.Text ); 
b := strtofloat(edit2.Text ); 
if a>b then b:= b*b 
 else a < b then a:= a* a; 
end;

Лёха *** · Answer

>Правильно ли я понял? 
 
Неправильно, потому что если так сравнивать, то два будет больше, чем миллион. 
 
Используй конвертирование StrToFloat и функции модуля Math - Min и Max.

Борис Пустоветов · Answer

вопрос???

Евгений Миргаязов · Answer

Ты не умеешь сравнивать числа? Оо Это клиника.