Ну а сама программа написана топорно и несколько неумело. Вот более правильный вариант:
Program Number1;
uses crt;
var a: real;
begin
clrscr;
writeln ('Введите с клавиатуры любое число, после чего нажмите клавишу Enter. Если вводите дробное число, то целую часть от дробной отделите точкой, а не запятой.');
write ('Введите любое число: ');
readln (a);
if a>0 then writeln ('Вы ввели положительное число.') else
if a
В Паскале точка с запятой - не часть оператора, а разделитель операторов. Поэтому после последнего в блоке она не нужна. Раньше компиляторы даже на это ошибку выдавали.