Определить сколько раз встречается в тексте самое короткое слово - Delphi 7

[Леди Уинтер]

Текст ввести с помощью компонента Memo.
Вывести слова исходного текста в алфавитном порядке

Дан текст на русском языке. Определить сколько раз встречается в нем самое короткое слово.

[Cantana]

то есть к примеру "кит". надо подсчитат только "кит" или "кот" тоже надо?
p.s:в кавычках слова что предпологаеться в тексте

[Stilet]

Вывести слова исходного текста в алфавитном порядке

Запросто. Воспользуйся классом TStringList (почти на нем Мемо основан). У него есть свойство Sort, которое ты выставиш в true, и получиш отсортированный текст.

Если же тебе нужно получить список слов и уже их отсортить тоже не беда, можно сделать так:

procedure TForm1.Memo1Change(Sender: TObject);
var s:TStringList;i:integer;
begin
//********* FOR ******************
s:=TStringList.Create;
s.Delimiter:=' ';
ListBox1.Sorted:=true;
ListBox1.Items.Clear;
for i :=0  to Memo1.Lines.Count-1  do
begin
 s.DelimitedText:=Memo1.Lines[i];
 ListBox1.Items.AddStrings(s);
end;
//******* END FOR ****************{}
end;

Дан текст на русском языке. Определить сколько раз встречается в нем самое короткое слово.

Тоже не сложно:

var s:TStringList;x,i:integer;m:string;
begin
//********* FOR ******************
s:=TStringList.Create;
s.Delimiter:=' ';
ListBox1.Sorted:=true;
ListBox1.Items.Clear;
for i :=0  to Memo1.Lines.Count-1  do
begin
 s.DelimitedText:=Memo1.Lines[i];
 ListBox1.Items.AddStrings(s);
end;
//********* FOR ******************
m:=ListBox1.Items[0];
for i:=1 to ListBox1.Items.Count-1  do
begin
 if length(ListBox1.Items[i])<length(m) then m:=ListBox1.Items[i];
end;
x:=0;
for i:=1 to ListBox1.Items.Count-1  do
begin
 if ListBox1.Items[i]=m then inc(x);
end;
caption:=m+' '+inttostr(x);
//******* END FOR ****************{}

//******* END FOR ****************{}
end;

[Леди Уинтер]

ВСЕМ!ВСЕМ!БОЛЬШОЕ СПАСИБО!