Помогите с кодом программы

if len<> 0 do delete (s,pos('..',s),1);

Перед "do", просит поставить "then", если ставлю "then", он ругается на продолжение...подскажите как исправить? Заранее спасибо.