Работа со строкой.

[anamnesis]

Здравствуйте, помогите разобраться с этой программой.
"Ввести строку, состоящую из нескольких предложений. Построить результирующую строку, содержащую только предложения, в которых отсутствуют запятые."

[Stilet]

И в чем сложности?

[anamnesis]

Сложность в поиске запятых и переписывании в новую строку.

[Stilet]

Загляни сюда:http://www.programmersforum.ru/showt...369#post398369
Здесь парсинг строки на массив слов, а ты вместо пробела поставь точку, чтоб получился массив предложений.
а после по элементам массива циклом с функцией pos, в которой задай запятую как символ, который нужно искать пройдись.

[anamnesis]

Спасибо, получилось что-то вроде этого, всё вроде работает.
Вот только интересно можно ли упростить, или это самый минимум?)

program lab19;
var s:string; a:array[1..100] of string; i,count:integer;
begin
writeln('enter s');
readln(s);
count:=1;
i:=1;
while i<length(s) do
begin
a[count]:=a[count]+s[i];
if s[i]='.' then begin inc(count); inc(i); end;
inc(i);
end;
for i:=1 to count do
if pos(',',a[i])=0 then writeln(a[i]);
end.

[Stilet]

можно ли упростить

Ну если начать упрощать одноклеточное что же останется на десерт?
Да и зачем? сравни свою программу с ОС Windows. И подумай что из них стоит упростить