Задача на Паскале Простая

[Maximus!]

Доброго Времени Суток!
Не могли бы вы Набросать решение таковой задачки:
Ввести несколько предложений через точку "."
Вывести кол-во предложений!

P.S. Я в Паскале полный 0! Девушке Задали)))
Не могли бы Вы помочь...сроки очень поджимают...Завтра сдавать уже(((
Вся Надежда на Вас!
Заранее Спасибо!!!

[NSvirus]

Да легко!
Вот строка: s1
Потом перебором считаем кол-во предложений, вот так:

for sm:=1 to length(s1) do if s1[sm]='.' then inc(pr);

[Maximus!]

А можно поподробнее??
Я вообще просто не Шарю...

[Niro]

можно и поподробнее

uses crt;
var sm,pr: byte;
         s1: string;
BEGIN
   clrscr;
   for sm:=1 to length(s1) do 
   if s1[sm]='.' then inc(pr);
   writeln('Всего предложений',pr);
   readln;
END.

[Maximus!]

Сообщение от Niro

можно и поподробнее

uses crt;
var sm,pr: byte;
         s1: string;
BEGIN
   clrscr;
   for sm:=1 to length(s1) do 
   if s1[sm]='.' then inc(pr);
   writeln('Всего предложений',pr);
   readln;
END.

Спасибо огромное!
Но как бы и сам текст ввести нужно...

[Niro]

Ну так добавьте после clrscr

writeln('Vvedite predlogenia');
readln(s1);

[Maximus!]

Плин! Благодарю Вас!!! Спасибо Огромнейшее!!!