Лабораторная.Строки.сможете !?

[alina4ka]

Для текста,состоящего из 5 строк найти количество слов начинающихся с большой буквы.Исходные данные считать из текстового файла.Результат записать в другой текстовый файл.Работа-процедура.

[Ponkole]

Вот примерно так

var r: char;i:integer;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
i:=0;
while not EOF do
begin
read(r);
if R in ['А'..'Я'] then
begin
while (r<> ',') and (r<>' ') and (r<>'.') and (r<>'!') and (r<>'?') do
read(r);
inc(i);
end;
end;
write(i);
end.