Даны три числа , если они размещены по возрастанию, то увеличить

Program zadacha1;
Var a, b, c, sum: integer;
Begin
write (a, b, c);
readln (a, b, c);
if (a gt; b) and (b gt; c) then begin
a := a + 3;
b := b + 3;
c := c + 3;
writeln (a, b, c);
end;
if (a lt; b) and (a lt; c) then begin
a := a - 3;
b := b - 3;
c := c - 3;
writeln (a, b, c);
end;
else begin
sum := a + b + c;
writeln sum
end;
end.