Обробка текстовых даных - Pascal ABC

var
  s, s2: string;
  i, j, k2, min: integer;
 
begin
  writeln('введите строку');
  readln(s);
  //k := 0;
  k2 := 0;
  min := 1000;
  s := s + ' ';
  for i := 1 to length(s) do
    if s[i] = ' ' then begin
      k2 := (i - 1) - k2;
      if k2 < min then begin min := k2; s2 := copy(s, i - k2, k2); end; 
      k2 := i;
    end;
  
  write('в слове ', s2);
  for i:=1 to length(s2) do
  begin
  for j:=length(s2) downto i do
  begin
  if (s2[i]=s2[j]) and (i<>j) then s2:=copy(s2,1, j-1)+copy(s2,j+1,length(s2));
  end;
  end;
  writeln(' ', length(s2), ' различных букв');
end.