Вывести слова с неповторяющейся в них первой буквой.

[~SnusmumriK~]

Вводится текст, т олько латинские буквы, ну и пробел. Вывести слова, в которых первая буква слова встречается один раз. То есть "заноза" не подойдет, там 2-е З, а слово "кора" подойдет. Подскажите,пожалуйста, в чем ошибка в программе.

program stroki;
uses crt;
const
m_Un:set of char=['a'..'z',' '];
var
 str,str1,str2:string[200];
 ch:char;
 l,i,j:byte;
Procedure enter_of_text;
begin
clrscr;
writeln('Please, enter your text');
ch:=#0;
i:=0;
str:='';
while (i<200) and (ch<>#13) do
 begin
 ch:=readkey;
 if ch In m_Un then
  begin
  str:=str+ch;
  write(ch);
  inc(i);
  end;
 end;
end;
  begin
  writeln('Enter of Text');
   enter_of_text;
   writeln;
   writeln('You have chooced the showing words with the first and non-recurring letter');
   writeln('Result of Your Choose');
   str1:='';
   for i:=1 to length(str) do
   begin
    if str[i]<>' ' then
    str1:=str1+str[i];
    if (str[i]=' ') or (i=length(str)) then
      begin
      if (str1<>'') then
      write('Please,enter another text');
      str1:='';
      end;
    str2:=copy(str1,2,(length(str1)-1));
    for j:=2 to (length(str1)-1) do
    if pos(str[1],str2)=0 then
    write(str1,' ');
    end;
    str1:='';
   readkey;
   end;

[keef]

program stroki;
uses crt;
const
m_Un:set of char=['a'..'z',' '];
var
 str,str1,str2:string[200];
 ch:char;
 l,i,j:byte;


Procedure enter_of_text;
begin
clrscr;
writeln('Please, enter your text');
ch:=#0;
i:=0;
str:='';
while (i<200) and (ch<>#13) do
 begin
 ch:=readkey;
 if ch In m_Un then
  begin
  str:=str+ch;
  write(ch);
  inc(i);
  end;
 end;
end;

BEGIN
  writeln('Enter of Text');
   enter_of_text;
   writeln;
   writeln('You have chooced the showing words with the first and non-recurring letter');
   writeln('Result of Your Choose');
   str1:='';
   for i:=1 to length(str) do
   begin
    if str[i]<>' ' then
    str1:=str1+str[i];
    if (str[i]=' ') or (i=length(str)) then
      begin
      if (str1<>'') then
      write('Please,enter another text');
      str1:='';
      end;
    str2:=copy(str1,2,(length(str1)-1));
    for j:=2 to (length(str1)-1) do
    if pos(str[1],str2)=0 then
    write(str1,' ');
    end;
    str1:='';
   readkey;
   END. // тут нужна была точка