Работа с текстом

[vadimc]

Работа с текстом ,Pascal ABC,задача 7.12

[Serge_Bliznykov]

Задание хорошее. Вы молодец, что поделились им со всеми!

Вадим, Вам даже лень два-три предложения из книжки перепечатать, чтобы написать свой задание, а Вы ожидаете, что кто-то будет тратить своё время и решать за Вас ваши лабораторные... ну-ну... Успехов!

[Stilet]

Не знаю как в АБЦ, а в фрюшке я бы делал так:

var c:char; i,j,n,w:integer; max:Doube;
...
max:=0;w:=0;
with TStringList.Create do begin
 DelimitedText:='Тута текста тата самая';
 write('Букву! Бистро!!!'); readln(c);
 for  i:=0 to Count-1 do begin
   n:=0;
   for j:=1 to Length(Strings[i]) do if Strings[i][j]=c then inc(i);
   if (n/Length(Strings[i]))>max then begin w:=i; max:=n/Length(Strings[i]); end;
 end;
 write(Strings[w]); 
 free;
end;
readln;
...

Идея уловима?