Даны четыре числа , если они задыне в порядке возрастания (1,2,3,4) то каждое возвести в квадрат, иначе найти их полусумму

Program ch;
var x1,x2,x3,x4,i:integer;
begin
writeln('введите 4 числа');
readln(x1,x2,x3,x4);
if (x1 < x2) and (x2 < x3) and (x3 < x4) then
begin
x1:=sqr(x1);
writeln('квадрат для x1 = ', x1);
x2:=sqr(x2);
writeln('квадрат для x2 = ', x2);
x3:=sqr(x3);
writeln('квадрат для x3 = ', x3);
x4:=sqr(x4);
writeln('квадрат для x4 = ', x4);
end
else write('полусумма = ',(x1+x2+x3+x4)/2);
end.