Дана строка. Вывести слова содержащие 'ар' (русские). Использовать процедуру разбиения строки на слова. Написать на языке Pascal.

var a,l: string; b: array of string; i: integer;

begin

write('Введите строчку: ');

readln(a);

b := a.ToWords;

for i:=0 to length(b)-1 do begin

l:=b[i];

if pos('ар',b[i])<>0 then writeln(b[i])

end;

end.