Строки, Паскаль

[Raep]

Строки, Паскаль

Заменить все слова "дом" на слово "домик".Удалить все буквосочетания "ой".Вставить после каждой буквы "к" три знака вопроса.
Вот программа:
Program labwork8;
var s:string;
i:byte;
begin
writeln('Исходная строка:');
Readln(s);
for i:=1 to length(s) do
if s='дом' then s:='домик';-ругается тут

repeat
i:=pos('ой',s);
if i>0 then delete(s,i,1);
until i=0;

i:=1;
repeat
if s='к'
then begin
insert('???',s,i+1);
inc(i,2);
end;
inc(i)
until i>length(s);
writeln('Преобразованная строка:');
writeln(s);
end.
Найдите,пожалуйста,ошибки.Заранее спасибо.

 

[Vladimir_S]

for i:=1 to length(s) do
if s='дом' then s:='домик';-ругается тут

И правильно ругается! Потому что s - это величина типа Char, т.е. всего один символ, а вовсе не подстрока.

 

[Raep]

можете написать переписать мою программу исправив ошибки?Если не составит труда

 

[Vladimir_S]

можете написать переписать мою программу исправив ошибки?Если не составит труда

Да что Вы, право, - какой разговор? Исполнено:

var
 s,s1:string;
 i:byte;
begin
 writeln('Исходная строка:');
 Readln(s);

 i:=0;
 Repeat
  Inc(i);
  s1:=Copy(s,i,4);
  If s1=' дом' then
   begin
    Delete(s,i,4);
    s1:=' домик';
    Insert(s1,s,i);
    Inc(i,5);
   end;
 Until i>=Length(s);
 Writeln(s);

 i:=0;
 Repeat
  Inc(i);
  s1:=Copy(s,i,2);
  If s1='ой' then
   begin
    Delete(s,i,2);
    Dec(i,2);
   end;
 Until i>=Length(s);
 Writeln(s);

 i:=0;
 Repeat
  Inc(i);
  If s[i]='к' then
   begin
    s1:='???';
    Insert(s1,s,i+1);
    Inc(i,2);
   end;
 Until i>=Length(s);
 Writeln(s);

 Readln
End.

 

[Raep]

Спасибо Владимир,не раз меня дурака выручали)