Задача на строки Опции

[AlonZo]

Задача такая: найти наиболее часто встречающуюся букву в конце слов и эти слова вывести на экран.
Не использовать процедуры и функции, буду благодарен за помощь.

[AlonZo]

1. Речь идет о последней букве в каждом слове.
2. Сам не понял как делать, но мне кое-что написали, но в коде есть проблема:

Код

var
  delimiters : set of char = [' ', ',', '.']; {сдесь пишет мол точку с запятой нужно поставить}
  inputString : string;
  i, inStrLen : integer;
  symbols : array [0..255] of integer;

begin
  write('write text here : ');
  readln(inputString);
  for i:=0 to 255 do symbols[i]:=0;

  i:=2;
  inStrLen := Length(inputString);
  while i <= inStrLen do
  begin
    if inputString[i] in delimiters then
       if not (inputString[i-1] in delimiters) then
          inc(symbols[ORD(inputString[i-1])]);
    inc(i);
  end;

  if not (inputString[inStrLen] in delimiters) then
     inc(symbols[ORD(inputString[inStrLen])]);

  inStrLen := 0;
  for i:=0 to 255 do
    if symbols[inStrLen] < symbols[i] then
       inStrLen := i;

  if inStrLen > 0 then
     writeln('Symbol is "' + CHR(inStrLen) + '"')
  else writeln('Error. Input data invalid.');

  readln;

end.

А в целом код правильный?

Сообщение отредактировано: AlonZo - 12.10.2007 17:20