Помогите с задачей

[Лёха]

Помогите кто может! Я паскаль совсем непонимаю, а тут нам задали задачку, надо написать! Вот её условие: Выделить из текста предложения (они отделены точкой) и занести каждое предложение в массив строк. Затем вывести массив на экран.
Помогите пожалуйста, буду очень вам благодарен!

[puporev]

(они отделены точкой)

Обычно в нормальном тексте предложения отделяются точкой и пробелом, а в форматированном тексте пробелов может быть больше одного. Поскольку эти пробелы не являются частью предложения, их надо удалить, что мы сначала и сделаем.

program mass_predl;
uses crt;
var s:string;
    s1:array[1..50]of string;
    i,j:integer;
begin
clrscr;
write('s: ');readln(s);
//удаляем пробелы после предложений
i:=1;
while i<length(s) do  
  begin
    if (s[i]=' ')and(s[i-1]='.') then
    delete(s,i,1);
    i:=i+1;
  end;
//создаем массив из предложений
j:=0;
for i:=1 to length(s)  do 
if s[i]='.'then
   begin
     j:=j+1;
     s1[j]:=copy(s,1,(pos('.',s)));//копируем предложение в элемент массива
     delete(s,1,pos('.',s));//удаляем его из текста
   end;
for i:=1 to j do
writeln(s1[i]);readln;//выводим массив на экран столбиком
end.

[Карась]

Проверь, что будет если этой программе дать строку:
"123.123 . 123 . 123 ...................."

Неочень првильно выводит. И кстати чтото пробелы никуда недеваются..

[puporev]

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

[Лёха]

Ребята, большое вам спасибо

[Лёха]

Я незнаю, чтоб я без вас делал, вот проблемка будет ещё к ней блок-схемку сделать.

[puporev]

Раз уж чего-то с кодом намудрил, надо и блок-схему к нему. См. во вложении.

[Лёха]

Огромнейшее вам спасибо, я незнаю чтоб я без вас делал