ПОМОГИТЕ ПОЖАЛУЙСТА!!! ОЧЕНЬ НУЖНО!Дана строка. Строка состоит из слов, разделенных пробелами. Требуется:
1) Выделить из строки и напечатать слова:
а)не содержащие цифры 0-3.
б) слова, оканчивающиеся на "Я"

const  bd=['0'..'3'];var  s,wa,wb,w:string;  c:char;  i,n:integer;  bad_a:boolean;begin  WriteLn('Вводите фразу, разделяя слова ровно одним пробелом');  Read(s);  s:=s+' ';  n:=Length(s); wa:=''; wb:='';  i:=1; bad_a:=false; w:='';  while i<=n do begin    repeat      c:=s[i];      if c<>' ' then begin        bad_a:=bad_a or (c in bd);        w:=w+c;        Inc(i)      end      else begin        if not bad_a then wa:=wa+' '+w;        if s[i-1]='Я' then wb:=wb+' '+w;        w:=''; bad_a:=false      end    until c=' ';    Inc(i);  end;  wa:=Copy(wa,2,Length(wa)-1);  wb:=Copy(wb,2,Length(wb)-1);  Writeln(wa);  Writeln(wb)end.