test TString list for english words

program sorteng;
uses Classes;
var
  lstTest:TStringList;
  i:integer;
...
begin
  lstTest:=TStringList.Create;
  lstTest.Add('dog');
  lstTest.Add('puppy');
  lstTest.Add('cat');
  lstTest.Add('kitten');
  lstTest.Add('parrot');
  lstTest.Add('hamster');
  lstTest.Add('chinchilla');
  lstTest.Add('guinea pig');
  lstTest.Add('mouse');
  lstTest.Add('rat');

  Writeln('Raw output:');
  i:=0;
  while i < lstTest.Count do begin
    WriteLn(lstTest[i]);
    inc(i);
  end;

  WriteLn();
...