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

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