FreePascal. Выдает 201 ошибку. Помогите.

Во-первых, у вас d имеет тип диапазон положительных чисел, а при вычислении запросто получаются ноль и отрицательные числа. Отсюда ошибка 201 - выход за пределы диапазона.
Во-вторых, год вам не просто так даётся, а для вычисления количества дней в феврале. Вы же год вообще никак не используете.
В-третьих, если пользователь что-то у вас вводит, то контролируйте, что именно он ввёл. Иначе крах программы будет происходить вполне закономерно.

const mas:array[1 .. 12] of byte=(31,28,31,30,31,30,31,31,30,31,30,31);
var
d: smallint;
dfeb: byte;
g: 1600 .. 3999;
i: integer;
e: boolean;
begin
repeat
write('Введите год (1600..3999): ');
e := false;
try
readln(g)
except
e := true
end
until not e;
dfeb := ord((g mod 4 = 0) and (g mod 100 <> 0) or (g mod 400 = 0));
inc(mas[2], dfeb);
repeat
write('Введите порядковый номер дня в году: ');
e := false;
try
readln(d)
except
e := true
end
until not e and (d > 0) and (d <= 365 + dfeb);

{Дальше без изменений}
i := 0;
while (d > 0) and (i < 12) do
begin
inc(i);
d := d - mas[і];
end;
if d <= 0 then
d := d + mas[і];
writeln('Месяц: ',i,' День: ',d);
readln;
end.

проверь типы данных которые используешь

Ты затрагиваешь константу, которою изменить нельзя.
Что это за бред? - d:=d+mas; К какому элемента массива ты прибавляешь. Я уже не говорю о том, что так нельзя