Сколько раз выполнится тело цикла:
s: = 0
fori : = 4 to 1 do
s: = s+1;

В условии ошибка. Если идет отсчет от большего числа к меньшему, то необходимо использовать downto. Это насколько я помню