Код:
410 115 alexteam i := 1;
411 alexteam while i <= Length(charname) do
412 alexteam begin
413 alexteam if pos(lowercase(charname[i]), 'qwertyuiopasdfghjklzxcvbnm1234567890.') > 0 then
414 alexteam inc(i)
415 alexteam else
416 alexteam delete(charname,i,1);
417 alexteam end;
я принципиально не вижу здесь ошибки.
что за скрипт и ГДЕ ты пытаешься его запустить ?
Добавлено через 2 минуты
и вообще.. какойто бредовый репорт... ассорти чемто напоминает
упоминание одновременно о куче юнитов без какойто логической цепочки....