[AVL]

Перепутал немного. Вот нормальный вариант:

  openres('lang.txt');
  i := 1;
  repeat
    lang[i] := win2utf(resloader.readline);
    i := i + 1;
  until lang[i-1] = '###';