Массив строк

[Siluet]

Дан текст (массив строк). Сколько в тексте строк, которые заканчиваются многоточием (...)
Учесть, что ... может быть и внутри строки предложения.

[Stilet]

Сколько в текте строк, уоторые заканчиваются многоточием (...)

Ну тупо циклом по строкам, в котором:

if copy(s[i],length(s[i])-3,3)='...' then Строка оканчивается многоточием

[NoHeart]

var
f:text;
s:string;
i,k:integer;
begin
k:=0;
assign (f,'input.txt');
reset (f);
while not eof(f) do
begin
readln(f,s);
if copy(s[i],length(s[i])-3,3)='...' then
inc(k);
end;
writeln (' кол-во строк, которые заканчиваются ... =',k);
end.


// Необходимо создать текстовой файл в директории, где лежит программа, и назвать его input