строки(поменять местами буквы)

[sllh_111]

Здраствуйте помогите пожалуйста дороботать програаму

в заданном тексте заменить подстроку "ЭВМ" на "ПК" и подсчитать длину сформировавшегося текста.

program lab_7;
uses crt;
var s: string; i, k,n,j : integer;
begin clrscr;
writeln('Vvedite tekst ');
readln(s); k:= length(s);i:=0;

while true do \\\\\\\\\\\ надо заменить условие цикла
begin
i:= pos('evm',copy(s,i,k-i));
if i=0 then break; \\\\\\\\\\\ и тут тоже
delete(s,i,3);
insert('pk',s,i);
k:= length(s); i:=0; k:=length(s);
end;
for j:= 1 to length(s) do
inc(n);
writeln('----- nev text -------');
writeln(s); writeln(n);
readln; end.

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

[GetMax]

begin
  writeln('Vvedite tekst ');
  readln(s);
  k:=length(s);
  i:=0;
  For p:=1 to k do
  Begin
  i:= pos('evm',copy(s,i,k-i));
  While i > 0 do
  Begin
  delete(s,i,3);
  insert('pk',s,i);
  k:= length(s); i:=0; k:=length(s);
  end;
  End;
  n:=1;
  for j:= 1 to length(s) do
  Begin
    If S[j] = ' ' then inc(n);
  End;
  writeln('----- nev text -------');
  writeln(s); writeln(n);
  readln;
End.

[sllh_111]

GetMax
спасибо! :-) )))))