Изменение кода Опции

[ds2207]

Задачка: Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами – запятая или не менее одного пробела, за последним словом - точка.
Напечатать те слова последовательности, которые отличны от последнего слова,
предварительно преобразовав каждое из них по следующему правилу:
- оставить в слове только первые вхождения каждой буквы.

Код:

Код

program q;

var
  s: string;
  i: integer;
  m: set of char;

  function posl(x: string): string;
  begin
    while (pos(' ', x) > 0) do
    begin
      Delete(x, 1, pos(' ', x));
    end;
    Delete(x, pos('.', x), 1);
    posl := x;
  end;

begin
  readln(s);
  while pos(' ', s) > 0 do
  begin
    m := [];
    if (copy(s, 1, pos(' ', s) - 1) <> posl(s)) and (pos(' ', s) > 1) then
      for i := 1 to pos(' ', s) do
      begin
        if not (s[i] in m) then
          Write(s[i]);
        include(m, s[i]);
      end;
    Delete(s, 1, pos(' ', s));
  end;
end.

Переделайте,пожалуйста код,чтобы в нём отсутствовали функции


.

Сообщение отредактировано: ds2207 - 28.12.2014 23:02