Exitcode=201 w tłumaczeniu z C++ na Pascala

Witam. W szkole dostałem zadanie domowe polegające na przetłumaczeniu programu z C++ na Pascala. Program ma wypisywać wszystkie możliwe ułożenia liter dla danego czteroliterowego słowa, a żadna z liter nie może powtórzyć się w jednym słowie. Program w C++ wygląda tak:
http://imageshack.com/a/img673/4281/NFoU8L.jpg
A po moim przetłumaczeniu tak:
http://imageshack.com/a/img673/2111/3lnmrb.png

Podczas kompilacji wszystko jest ok, jednak po uruchomieniu programu wyskakuje exitcode=201. Metodą prób i błędów doszedłem, że problem tkwi w jednej linijce kodu:
i4:=6-i1-i2-i3;
Co tu jest nie tak?

Weź zainstaluj sobie Lazarusa i programuj jak człowiek, mając do dyspozycji debugger, który można dużo łatwiej obsługiwać niż ten w wersji konsolowej... Poza tym na kod w postaci obrazka nie chce mi się nawet patrzeć - nie będę go przepisywał (za Ciebie), aby sprawdzić czy i jak działa...

1. zapoznaj się z pojęciem formatowania kodu

if (i3==i1)or(i3==i2) then Continue;
i4:=10-i1-i2-i3;

w C indeksacja od 0 zaś 0+1+2+3=6, w pascalu indeksacja od 1 więc 1+2+3+4=10

WIELKIE dzięki za pomoc! Już wszystko działa :). Wybaczcie za te wszystkie niedociągnięcia ale w szkole programowanie zacząłem kilka tygodni temu...