#10 Range check error in StToHtml

[Bruno Sonnino]

Running Ex2Html example, a range check exception is
raised when there is a line with no ending ';' (ex:
interface).

To fix this error, I've made two changes in StToHtml:

Line 680:
while (P1 <= Length(TmpStr)) and .....

Line 706:
end else if (P1 <= Length(TmpStr)) ...