Вариант, где определяется номер (последний) строки с макс. кол-вом зад-ных сим-в
Легко подработать под Ваши нужды
Код
const
symbol='*';
var
f:text;
s:string;
StrNumber,j,count,i,max:integer;
begin
Assign(F, 'TEXTFILE.TXT');
ReSet(f);
max:=0;
j:=1;
while not eof(f) do
begin
ReadLn(f,s);
count:=0;
for i:=1 to Length(s) do
if s[i]=symbol then
count:=count+1;
if count>max then
begin
max:=count;
StrNumber:=j;
end;
j:=j+1;
end;
Close(F);
WriteLn('Max symbols in string N ',StrNumber);
end.
Тестовый файл TEXTFILE.TXT
Цитата
***********************************************
***
******
/**///
/*****************
***
*******************************
***********************************************************