Помогите написать программу в Паскале

[Dimka0506]

Нужно написать 2 программы, через процедуру. Помогите написать.
1)удалить из текста все латинские буквы.
2)преобразовать текст, заменяя каждое слово "лесник" на слово "лесничий".

[Stilet]

1)удалить из текста все латинские буквы.

procedure q(var s:string);
var j,i:integer;
begin
 j:=1;
 for i:=1 to Length(s) do
  if not( s[i] in ['A'..'z']) then begin s[j]:=s[i]; inc(j);end;
 s:=copy(s,1,j);
end;

2)преобразовать текст, заменяя каждое слово "лесник" на слово "лесничий".

procedure q(var s:string);
var j,i:integer;
begin
 repeat
  j:=pos('лесник',s);
  delete(s,j+4,1); 
  insert(s,'чий',j+4);
 until j<>0;

Писал с потолка...