Помогите с простой задачей в DELPHI! pliz!!!

[maksimka]

ЛЮДИ HELP!!!!!!!!!!!!
ПОМОГИТЕ сделать задачу в DELPHI зачет через 2 дня!
pliz!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!
Дан текст на русском языке. Определить сколько раз встречается в нем самое короткое слово.

Заранее благодарен

[Квэнди]

1. Разбираешь строчку на слова, слова в массив
2. Выбираешь из массива минимальную Length(слова)
3. Идешь по массиву каждый раз встречая такое же слово (проверяешь сравнением) делаешь inc(счетчик)

[AVer]

Чтобы не заморачиваться с динамическими структурами можно сделать так:

var s,buf,sl:string;
    i,n,k:integer;
begin
readln(s);
sl:=s;
for i:=1 to length(s) do if s[i]=' ' then n:=n+1;
for i:=1 to n do
begin
Buf:=Copy(s,1,pos(' ',s));
Writeln(Buf);
if sl <> Buf then
begin
if length(Buf) < length(sl) then
begin
k:=1;
sl:=Buf;
Delete(s,1,pos(' ',s));
end;
end else if sl=buf then k:=k+1;
end;
Buf:=S;
if sl <> Buf then
begin
if length(Buf) < length(sl) then
begin
k:=1;
sl:=Buf;
end;
end else if sl=buf then k:=k+1;
WriteLn('Slovo ',sl,' vstrechaetsya ',k,' raz');
readln;
end.

[440420789]

Здрастьте уважаемые!
помогите пожалуйста, вот программка referat.izh.in › second/lipos/lab1.doc
она должна выделять определенный файл красным цветом, а она не выделяет(( а в остальном всё работает. заранее спасибо!