lab6

program lab6;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
st,s,w:string[80];
p,r,n,k:integer;
begin
  n:=1;
  k:=0;
  writeln('Enter string');
  readln(st);
  p:=pos('.',st);
  st[p]:=',';
  while st<>'' do begin
    p:=pos(',',st);
    if n mod 2 = 0 then begin
      r:=pos('r',st);
      if r=1 then begin
        s:=copy(st,1,p);
        w:=w+s;
        inc(k);
      end;
    end;
    inc(n);
    delete(st,1,p);
  end;
  if k=0 then begin
    writeln('There is no such words: ');
  end
  else begin
    write('Wanted words: ');
    writeln(w);
    write('Number of wanted words: ');
    writeln(k);
  end;
  readln;
end.