String (paskal)

[Veselyn]

Задача:
Дан текст из строчных латинских букв, за которым следует точка. Построить множество, состоящее из всех букв, входящих в текст по одному разу.
Вот то что сделал я:

        readln(str);
   for i:=1 to length(str) do
      if m[i] in str=1 then
   sum:=sum+m[i]

Пожалуйста, напишите правилный или исправте этот код

[megachuhancer]

var
   ans : array ['a' .. 'z'] of byte;
   ch : char;
begin
   read(ch);
   while(ch <> '.') do begin
      inc(ans[ch]);
      read(ch);
   end;
   for ch := 'a' to 'z' do if ans[ch] = 1 then write(ch);
end.

[Veselyn]

Спасибо за отзыв, принцип написания понятен

[adic.93]

пожалуйста помогите в стринг
Добрый день:::::::пожалуйста помогите::::::::
дана строка, и я должен написать програм(в паскале) который определяет и выводит на экран самое длинное и самое короткое слово, каждое с новой строки(пожалуйста помогите).