Составить программу паскаль из 2-х чисел уменьшить на 8 а меньшее число увеличить в 2 раза

Program Test;

Var min, max, tmp: real;

Begin

Write(Введите 1 число: );
Readln(max);
Write(Введите 2 число: );
Readln(min);

if (min gt; max) then
begin
tmp := max;
max := min;
min := tmp;
end;

if (min = max) then
begin
Writeln();
Writeln(Числа одинаковы!);
end

else
begin
max := max - 8;
min := min * 2;

Writeln();
Writeln(Max = , max);
Writeln(Min = , min);
end;

End.