String,Строковые данные

[gazik7362]

Помогите решить задачу!
Нужно найти букву,которая определяет часто встречается в заданном тексте!

[Stilet]

Хм... Легко

var c:array['A'..'z'] of integer;i:integer;s:string;m,cc:char;
begin
s:='hello world';
for i:=1 to length(s) do inc(c[s[i]]);
m:='A';
for cc:='A' to 'z'  do if c[m]<c[cc] then m:=cc;
write(m);readln;
end.

А теперь выведи на єкран m, и получишь символ чаще всего встречающийся в тексте

[gazik7362]

Что-то не пашит пишет(Pascal ABC):
Ошибка: ' ' - выход за границы диапазона изменения индекса 'A'..'z'

Насчет вот этой команды inc(c[s[i]]);

[Stilet]

Я слегка код поправил, там помарки были, у себя проверил в классическом паскале - работает.

Насчет вот этой команды inc(c[s[i]]);

Ну замени

 c[s[i]]:=c[s[i]]+1;

[Serge_Bliznykov]

Stilet, угу, я не удивлюсь, если следующим вопросом будет - "а почему для русских букв не работает"...

в случае использования однобайтных символов (TurboPascal, Pascal ABC) я бы предложил заменить
массив на
var c:array[0..255] of integer;
ну и соответственно программа:

  for i:=0 to 255 do c[i]:=0;
  for i:=1 to length(s) do inc(c[ord(s[i])]);
  maxI := 1;
  for i:=0 to 255 do 
    if c[i]>c[maxI] then MaxI := i;

  if c[MaxI] = 0 then Writeln('Ваще ни одного символа в строке не найдено!')
  else WriteLn('Символ с кодом ',MaxI, ' = ', chr(MaxI), 
            ' встретился ',c[MaixI],' раз.');
  readln;