LOL 'what makes this code' i think he 'makes' nothing. he is doing a lot
My Java isn't good enough to translate, but here some tips for pascal-language:
to compare to variables, you use '=', e.g.
if s1=s2 then whatever;
to assign a variable you use ':=', e.g
s1:=s2;
Furthermore there is no
in delphi/pascal, to increase the value of an integer-var by 1, use
i:=i+1;
or
inc(i);
so far
inh3r1ted