Дан текст из строчных латинских букв, за которым следует точка.

uses crt;
var s,s1:string;
    c:char;
    i,j:byte;
begin
clrscr;
writeln('Введите текст из строчных латинских букв, окончание ввода точка');
s:='';{строка для ввода}
s1:='';{строка для вывода}
repeat
c:=readkey;{читаем код клавиши}
if c in ['a'..'z'] then{если строчные латинские}
 begin
  write(c);{выводим}
  s:=s+c;{добавляем в строку}
  j:=0;{проверяем была ли ранее}
  i:=1;
  while(i<length(s))and(j=0) do
  if s[i]=c then j:=1
  else i:=i+1;
  if j=0 then s1:=s1+c;{если не было, добавляем в вывод}
 end;
if c='.' then writeln;{точка на новую строку}
until c='.';{точка конец ввода}
writeln('Первые вхождения букв:');
write(s1);
readln
end.

uses crt;
var   m : set of char;
temp, s : string;
 
begin
     repeat
           s[ord(s[0]) + 1] := readkey;
           s[0] := chr ( ord (s[0]) + 1);
           if not (s[ord(s[0])] in m) then
           begin
                temp := temp + s[ord(s[0])];
                m := m + [s[ord(s[0])]]
           end;
           write (s[ord(s[0])]);
     until s[ord(s[0])] = '.';
 
writeln;
write (temp);
 
end.

uses crt;
var   m : set of char;
   temp : string;
      c : char;
 
begin
     repeat
           c := readkey;
           if not (c in m) then
           begin
                temp := temp + c;
                m := m + [c]
           end;
           write (c);
     until c = '.';
 
writeln;
write (temp);
 
end.

uses crt;
const lb=['a'..'z'];
var s,s1:string;
    m:set of char;
    c:char;
    i,j:byte;
begin
clrscr;
writeln('Введите текст из строчных латинских букв, окончание ввода точка');
s:='';{строка для ввода}
s1:='';{строка для вывода}
m:=[];{множество для проверки букв}
repeat
c:=readkey;{читаем код клавиши}
if c in lb then{если строчные латинские}
 begin
  write(c);{выводим}
  s:=s+c;{добавляем в строку}
  if not(c in m) then
   begin
    include(m,c);
    s1:=s1+c;
   end;
 end;
if c='.' then writeln;{точка на новую строку}
until c='.';{точка конец ввода}
writeln('Первые вхождения букв:');
write(s1);
readln
end.