Pascal - строки

[Kris92]

помогите задачку решить(((
дана строка, содержащая латинские буквы. заменить все вхождения 'ph' на ' f ', а все вхождения 'ed' на 'ing' .

[VektorAB]

uses crt;
var
str:string;
i:integer;
begin
clrscr;
str:='philips komphort texned';
for i:=1 to length(str)-1 do
         if (str[i]='p') and (str[i+1]='h') then
              begin
                   Delete(str,i,2);
                   Insert('f',str,i)
              end
         else
             if (str[i]='e') and (str[i+1]='d') then
              begin
                   Delete(str,i,2);
                   Insert('ing',str,i)
              end;
Write(Str);
readkey
end.

Вот код. Проверяйте.

[profu]

program prog2;
uses crt;
var
 s: string;
 f: boolean;
 index: byte;
begin
 clrscr;
 write('Stroka: ');
 readln(s);
 f:=true;
 while f do
 begin
  f:=false;
  index:=pos('ph', s);
  if index<>0 then
   begin
     f:=true;
     delete(s, index, 2);
     insert('f', s, index);
   end;
  index:=pos('ed', s);
  if index<>0 then
   begin
     f:=true;
     delete(s, index, 2);
     insert('ing', s, index);
   end;
 end;
 writeln('Stroka posle izmeneniya: ', s);
 readln;
end.

[Kris92]

В строке имеется символ точка с запятой. подсчитать колличество символов до точки с запятой и после неё.

[VektorAB]

Сообщение от Kris92

В строке имеется символ точка с запятой. подсчитать колличество символов до точки с запятой и после неё.

А если точка с запятой встречается не один раз? Как поступать?

[VektorAB]

uses crt;
var
posT,doT:integer;
str:string;
begin
clrscr;
Write('Введите строку: ');
Readln(str);
doT:=0;
repeat
doT:=doT+1
until str[doT]=';';
doT:=doT-1;
posT:=length(str)-1-doT;
Writeln('Символов до точки с запятой',doT);
Write('Символов после точки с запятой',posT);
readkey
end.

[Kris92]

блин,почему ошибку выдаёт?((((

[Stilet]

Потому что не проверяется выход за пределы строки:

repeat
doT:=doT+1
until (str[doT]=';')or(dot>=length(str));

[VektorAB]

Не стал крайние варианты брать!