Первые вхождения Опции

[18192123]

Дан текст, заканчивающийся точкой. Вывести первые вхождения каждой латинской буквы.
(задача должна решаться с помощью множеств)

Помогите разобраться , что понимается под первыми вхождениями.

[18192123]

Вот что у меня получилось

uses crt;
var
s, s1 : string;
i : integer;
mn : set of char;
c : char;
begin
clrscr;
repeat
s := '';
repeat
  c := readkey;
  write ( с );
  s := s+c;
  until (c = '.')or (c = #13);
  writeln;
until c = #13;
s1 := '';
mn := [];
i := 0;
while i <= length(s) do
begin
     mn := mn + [s[i]];
     inc (i);
     if s[i]  in mn then writeln ('Error!!!') else
        begin
        mn := mn+ [s[i]];
        s1 := s1 + s[i];
end;
end;
writeln (s1);
readkey;
end.

но у меня получается, что пробелы тоже выводятся. ( а как без них?)
и ещё, не получается учесть самый первый символ текста

А может, нужны номера позиций первых вхождений?
Типа так:
a - 2
e - 13
h - 6
n - 12
...

вроде нужны именно первые вхождения, и не их позиции

Сообщение отредактировано: 18192123 - 5.01.2007 14:04