Операции Над Строками В Pascale

[Valian]

Условие задачи: подсчитать количество слов, оканчивающихся на ЕЕ в нечетных абзацах и на О в четных. Реализовать задачу необходимо в Pascale.
У меня получается найти слова в предложениях, но я не могу понять как это сделать с абзацами. Вот все что получилось((((

Program work;
uses crt;
var
k,k1:integer;
s,s1,s2,s3,s4:string;
begin
writeln('Ведите предложение');
readln(s);
s:=s+' ';
k:=0;
s1:='ее';
while s<>'' do
begin
s2:=copy(s,1,pos(' ',s)-1);
if pos(s2[length(s2)],s1)<>0 then
k:=k+1;
delete(s,1,pos(' ',s));
end;
writeln('Слова, оканчивающиеся на ее = ',k);
writeln('Ведите предложение');
readln(s);
s:=s+' ';
k1:=0;
s3:='о';
while s<>'' do
begin
s4:=copy(s,1,pos(' ',s)-1);
if pos(s4[length(s4)],s3)<>0 then
k1:=k1+1;
delete(s,1,pos(' ',s));
end;
write('Слова, оканчивающиеся на о = ',k1);
readln;
end.

 

[Senset]

Вы с самого начала вводите лишь одно предложение, которое потом анализируете... Может быть Вам необходимо использовать файлы (там много строк, понятно где начинается абзац и т.п.)?
Или же второй вариант это: "сделать условный абзац в строке например по символу \n", т.е.:
s='Это первый абзац\nЭто второй абзац'
Но при этом стоит учитывать, что маскимальный набор символов в строке (для паскаля)=255
При ручном вводе строки, Вы сможете набить только 160 символов (если это турбо паскаль, а в фри - такой баги вроде нет)