Сколько раз выполнится тело цикла: s:=0 fori := 4 to 1 do s:= s+1;
В условии ошибка. Если идет отсчет от большего числа к меньшему, то необходимо использовать downto. Это насколько я помню