Напишите 2 недостающие строки в программе на месте пробелов.

var Str: string;
    count: integer;
procedure ClearText (var s:string);
var i: integer;
begin
  for i: 1 do lenght(s) do
    if not (s[i] in ['a'..'z', 'а'..'я', ' ']) then begin
    delete (s,i,l);
    insert (' ',s,i)
    end;
end;
function CountWord; (word,s:string):integer;
var p, len:integer;
begin
  len:=lenght(word);
  p:=pos(word, s);
  while p>0 do begin
    inc(result);
    delete(s,p,len);
    p:=pos(word,s);
  end;
end;
begin
  writeln('Введите текст: ');
  read(Str);
  writeln('Введите слово для поиска:');
  read(word);
  Str:=LowerCase(Str);
  ClearText(Str);
  
  
  writeln('Указанное слово встречается ', count, ' раз');
end.

procedure ClearText (var s:string);
var i: integer;
begin
  for i:=1 to length(s) do
    if not (s[i] in ['a'..'z', 'а'..'я', ' ']) then begin
    delete (s,i,1);
    insert (' ',s,i)
    end;
end;
function CountWord(word,s:string):integer;
var p, len:integer;
begin
  len:=length(word);
  p:=pos(word, s);
  while p>0 do begin
    inc(result);
    delete(s,p,len);
    p:=pos(word,s);
  end;
end;
var Str,word: string;
begin
  writeln('Введите текст: ');
  read(Str);
  writeln('Введите слово для поиска:');
  read(word);
  Str:=LowerCase(Str);
  ClearText(Str);
  word:=' '+LowerCase(word)+' ';
  writeln('Указанное слово встречается ', CountWord(word,Str), ' раз');
end.