Найти произведение 2х максимальных чисел из 3х

Var x,y,i,min,max1,max2:integer;
begin
writeln(пожалуйста, введите поочередно 3 числа);
readln(x);readln(y);readln(i);
if (xlt;y) and (xlt;i) then begin  min:=x; max1:=y; max2:=i; end;
if (ilt;y) and (ilt;x) then begin  min:=i; max1:=y; max2:=x; end;
if (ylt;x) and (ylt;i) then begin min:=y; max1:=x; max2:=i; end;
writeln(минимальное число =,min);
writeln(произведение 2-х максимальных =,max1*max2);
end.

Пример работы:
пожалуйста, введите поочередно 3 числа641281минимальное число =1произведение 2-х максимальных =8192