fpctest.ps

Delphi script parser

var
  i : Integer;
begin
  i:=pos('e', 'Hello');
  writeln(inttostr(i));
end.