Дана строка символов до точки. Оставить в ней только сло- ва, начинающиеся на буквы «A», «D», «K», «P».

[Bogdaa]

Дана строка символов до точки. Оставить в ней только сло- ва, начинающиеся на буквы «A», «D», «K», «P».

[newerow1989]

function ADKP(c: char): boolean;
begin
   Result:=(c='A') or (c='D') or (c='K') or (c='P');
end;

var i: integer;
    s, s1: string;
    flag: boolean;
begin
   Write('s = '); Readln(s);
   flag:=ADKP(s[1]);
   s1:='';
   for i:=1 to Length(s) do
   begin
      if flag then
         s1:=s1+s[i];
      if s[i]=' ' then
         flag:=(i<Length(s)) and ADKP(s[i+1]);
   end;
   Writeln('NEW STR: '+s1);
   Readln;
end.

[digitalis]

А ему не на Паскале надо, а на RPG