test TString list for russian words

program sortrus;
uses Classes;
var
  lstTest:TStringList;
  i:integer;
...
begin
  lstTest:=TStringList.Create;
  lstTest.Add('собака');
  lstTest.Add('щенок');
  lstTest.Add('кот');
  lstTest.Add('кошка');
  lstTest.Add('котёнок');
  lstTest.Add('попугай');
  lstTest.Add('хомяк');
  lstTest.Add('шиншилла');
  lstTest.Add('морская свинка');
  lstTest.Add('мышь');
  lstTest.Add('крыса');

  Writeln('Вывод массива:');
  i:=0;
  while i < lstTest.Count do begin
    WriteLn(lstTest[i]);
    inc(i);
  end;

  WriteLn();
...