Строковые процедуры и функции

const
   sim:set of char=['A'..'Z','a'..'z'];
var
   st,buf:string;
   i,j:integer;
begin
cls;
    writeln('Enter string');
    readln(st);
    writeln('Слова содержащие букву А(лат)');
    i:=1;
    repeat
       //пропускаем знаки препинания
       while not (st[i]in sim)and (i<=length(st))do
       inc(i);
       //  формируем слово
       buf:='';
       while st[i]in sim do
       begin
          buf:=buf+st[i];
          inc(i);
       end;
       // ищем в нем букву
       for j:=1 to length(buf)do
       begin
          if buf[j]='A' then
          writeln(buf);
       end;
       //
    until i>length(st);
end.

const
  dividers=[',',' ','.','-','=',';',':','_','+','*','/'];{äîïèøåòå íóæíûå}
var
  temp,s:string;
  i,j:integer;
  fl:boolean;
begin
  readln(s);
  temp:='';
  writeln('Íàéäåííûå ñëîâà:');
  {âûäåëÿåì ñëîâà èç ïåðâîãî}
  for i:=1 to length(s) do
  begin
    if not (s[i] in dividers) then
      temp:=temp+s[i];
    if (s[i] in dividers) or (i=length(s)) then
    begin
      fl:=false;
      if temp<>'' then
        for j:=1 to length(temp) do
          if (temp[j]='a') or (temp[j]='A') then
            fl:=true;
      if fl then
        write(temp,' ');
      temp:=''
    end
  end;
  writeln
end.