I get AC but not easy and as i understand the main problem for
people with this task is input.

Here is my input code. Hope it'll be usefull
------------
<read vocabulary>

while not eof do
begin
  readln(s);
  if (s = '') and eof then break;

  <process string>
  writeln;
end;

writeln(errorsCnt);
------------