Pascal. 1.Определить количество слов в предложении. 2.Определить какая буква в строке встречается чаще: первая или последняя. 3. Написать программу меняющую слово "Петр" на "Иван".

Для подсчёта слов в предложении, вот код: program Slova; var  s: string;  r,i:integer; begin  writeln('Введите ваше предложение');  readln(s);  s:=s+' ';  for i:=1 to length(s)-1 do  if (s<>' ') and (s[i+1]=' ') then  r:=r+1;  writeln('В предложении ',r, ' слов. ');  readln; end. Какая буква встречается чаще Program Bykv; Var s:String;     i,k1,k2:byte; Begin     write('Введите строку: ');readln(s);     For i:=2 to Length(s)-1 do      if s[i]=s[1] then inc(k1)       else if s[i]=s[Length(s)] then inc(k2);     writeln('Первая буква встречается ',k1);     writeln('Последняя буква встречается ',k2);     writeln('Вывод:');     if k1>k2 then writeln('Первая буква встречается чаще')      else if k1 '); readln(z); if pos(t,s)<>0 then j:=pos(t,s); p:=copy(s,1,j-1); p:=p+z; p:=p+copy(s,j+length(t),length(s)); writeln(p); readln; end.