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

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.