Дано целое число, если оно является положит, то вычесть из него

var
       m : real;                               // объявляем переменную, типа - целое число
begin
    writeln(Введите целое число:); // выводим на экран текстовую строку
    readln(m);                                // вводим с клавиатуры число
if (m gt;= 0) then                       // условие производится, если введенное число больше либо = 0
    begin
       If (m gt; 0) then                  // если введенное число больше 0, то вычитаем из него 10
           m:= m - 10
       else                                 // если введенное число одинаково 0, то заменяем его на 6
           m:= 6
    end
else                                      // условие производится, если введенное число меньше 0
    m:= m+8;                       // если введенное число меньше 0, то добавляем к нему 8
writeln(Ответ: , m);           // выводим на экран строчку с ответом
end.