Напишите прогу

[Dimapokal]

нада прога которая: 1.из введенного рядка в МЕМО удаляет слова которие стоят после комы (например: "я люблю сидеть в инете, но мне, очень дорого." после выполнения програмы "я люблю сидеть в инете, мне, дорого.")
2.из введенных рядков в МЕМО считает сколько рядков с непарным количеством слов.

Помогите плиз!!! очень нада!!!

 

[etc]

армия поможет

 

[Dimapokal]

sps)))))))

 

[BurcevD]

1. Задание

function deleteaftercomma(S:string):String;
var i:Integer;
IsAfter:Boolean;
Res:string;
Begin
IsAfter:=false;
s:=' '+s+' ';
Res:='';
For i:=2 to Length(s) do
begin
if (s[i-1]=',') and (s=' ') then IsAfter:=true else
if (s[i-1]<>' ') and (s=' ') then IsAfter:=false;
If not IsAfter then Res:=Res+s;
end;
Result:=Res;
end;

Вторая непонятна, либо есть парные слова (повторяющиеся) либо четное количество

 

[Dimapokal]

ой пасиба!!!!