Выделение слов из текста с определенным количеством букв - Pascal ABC

Формулировка задачи:

Помогите, пожалуйста. Нужно найти в тексте слова, которые содержат более чем заданное пользователем количество букв, и выделить другим цветом в исходном тексте. Добавлено через 19 часов 24 минуты Что здесь не так? Почему не работает?
program k;
uses crt;
var s, q, r:string;
n, i:integer;
begin
clrscr;
writeln ('Введите количество букв');
readln (n);
writeln ('Введите тест');
readln (s);
 
s:=s+' ';
i:=1;
while i<>0 do begin
i:=Pos ('', s);
q:=Copy(s,i, i-1);
Delete(s, 1, i);
r:=q;
Delete (q,length(q),1);
if length(q)>n then Textcolor (6);
write (r);
Textcolor (Black);
end;
Readkey;
end.

Код к задаче: «Выделение слов из текста с определенным количеством букв - Pascal ABC»

textual
program k;
uses crt;
var s, q, r:string;
n, i:integer;
begin
clrscr;
Textcolor (DarkGray);
writeln ('Введите количество букв');
readln (n);
writeln ('Введите текст');
readln (s);
s:=s+' ';
i:=1;
while i<>0 do begin
i:=Pos (' ', s);
q:=Copy(s,1, i-1);
Delete(s, 1, i);
r:=q;
if length(q)>n then Textcolor (6);
write (r,' ');
Textcolor (DarkGray);
end;
Readkey;
end.

12   голосов, оценка 4.167 из 5


СОХРАНИТЬ ССЫЛКУ