замена ph на f, ed на ing

[fleur]

Помогите, пожалуйста, решить задачу:

type stroka=packed array[1..80] of char;
var s:stroka;

Известно, что в начале строки s находится не более 40 латинских букв, за которыми следуют пробелы. Напечатать эту строку, заменив все вхождения ph на f, а все вхождения ed на ing.

Я написала так:

uses
SysUtils;
type
stroka=packed array[1..80] of char;
var
s:stroka;
kol,i:integer;
a,b:char;
begin
kol:=0;
writeln('vvesti stroku');
for i:=1 to 80 do
begin
read(s[i]);
if (s[i]>'a') and (s[i]<'z') then kol:=kol+1
end;
if kol>40 then writeln('oshibka')
else
begin
i:=1;
while i<=80 do
begin
if s[i]='p'then
if s[i+1]='h' then
begin
s[i]:='f';
while (i+1)<80 do
begin
s[i+1]:=s[i+2];
i:=i+1
end;
s[80]:=' '
end;
if s[i]='e' then
if s[i+1]='d' then
begin
s[i]:='i';
s[i+1]:='n';
a:=s[i+2];
b:=s[i+3];
s[i+2]:='g';
while (i+3)<=80 do
begin
s[i+3]:=a;
a:=b;
if (i+4)<=80 then b:=s[i+4];
i:=i+1
end
end;
i:=i+1
end
end;
writeln('novaya stroka:');
for i:=1 to 80 do
if s[i]=' ' then write('=') {это для препода, чтобы он видел,что там пробелы}
else write(s[i])
end.

Но после введения строки программа сама закрывается
Что делать?

[Serge_Bliznykov]

Но после введения строки программа сама закрывается
Что делать?

просто допишите в конце программы:

WriteLn('For continue press ENTER');
Readln;

[fleur]

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

[Serge_Bliznykov]

а скажите, чем Вам тип String не угодил?! зачем Вам свой тип Stroka ?!

[fleur]

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

а скажите, чем Вам тип String не угодил?! зачем Вам свой тип Stroka ?!

это не я тип создавала, в задаче такое условие:
type stroka=packed array[1..80] of char;
var s:stroka;

кстати, задачу доработала, теперь меняет что надо, но только первое встречающееся сочетание
да, плохой из меня программист..

[bag]

Держи подправленную твою программу:

uses crt;
type
  stroka= string[80];
var
  s:stroka;
  i,j:integer;

begin
  clrscr;
  writeln('vvesti stroku');
  readln(s);

  for i:=1 to 80 do
    if ((s[i]<'a')or(s[i]>'z'))and((s[i]<'A')or(s[i]>'Z')) then break;

  if i>40 then writeln('oshibka')
  else
  begin
    i:=1;
    while i<80 do
    begin
      if (s[i]='p')and(s[i+1]='h') then
      begin
        s[i]:='f';
        for j:=i+1 to 79 do
          s[j]:=s[j+1];
        s[80]:=' ';
      end;

      if (s[i]='e')and(s[i+1]='d')and(i<79) then
      begin
        s[i]:='i';
        s[i+1]:='n';
        for j:=80 downto i+3 do
          s[j]:=s[j-1];
        s[i+2]:='g';
        i:=i+2;
      end;
      i:=i+1;
    end;
    writeln('novaya stroka:');
    for i:=1 to 80 do
      if s[i]=' ' then write('=')
      else write(s[i]);
  end;
  readkey;
end.

Будут вопросы - спрашивай
Да, и еще, скажи честно, ты сама программу писала?