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

program  Laba_11;
uses crt;
type mas = array [1..100] of string;
var s1,s2:mas;
 i,j:byte;
begin
s2[j]:=('.');  i:=1;
 writeln('vvedite text ->');
 readln(s1[i]);
 if s1[i]=s2[j] then
 begin
 s1[i]:=s1[i+1];
  repeat
  textcolor(9);
  s1[i]:=s1[i+1];
  until s1[i]=s2[j];
  writeln(s1[i]);
 end
 else writeln('text vveden ne korectno');
  readln;
  end.

Разбиение на слова. Все способы.
Вот на этот код взгляните. Сообщ. № 6
Достаточно изменить код

const
  delimiter = [#32, ',', '.', '!', ':'];

на

const
  delimiter = ['.'];

и у вас будут выдаваться не слова, а предложения.