Небольшая проблема, нужен совет

[Darkwinged]

Всем доброго времени суток!
В курсовой работе у меня такое задание: Удалить из линейного списка слова, которые содержат хотя бы один символ, отличный от латинской буквы. Список однонаправленный.
Я решил задать как объект элемента строку и в основном алгоритме проверить: если элемент строки не является латинской буквой, то удалить запись.
Но курсор останавливается на препоследней строке и пишется что операция неприменима к операндам данного типа. Насколько я понял это про In но в других прогах (не по спискам) я его использовал.
В чём тут может быть дело?
Заранее благодарен.

часть основного кода без ввода.
program home3lin;
uses crt;

Type
Tlist=^Pspisok;
Pspisok=record
info:string;
next:Tlist;
end;

var
stroka:string;
i:integer;
head,tail:tlist;
p,next,pnew:tlist;
F:text;
N:byte;
begin

P:= Head;
While P<>nil do
begin
stroka:=p^.info;
for i:=1 to length(stroka) do
Begin
If not stroka[i] in ('[A..Z],[a..z]') then
begin