String (paskal)

Задача: Дан текст из строчных латинских букв, за которым следует точка. Построить множество, состоящее из всех букв, входящих в текст по одному разу. Вот то что сделал я:
readln(str);
 for i:=1 to length(str) do
 if m[i] in str=1 then
 sum:=sum+m[i]
Пожалуйста, напишите правилный или исправте этот код
3 ответа

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.


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


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