Паскаль (I семестр) / K01-172 / 05 / str1

program str1;
const
ToReplace = '.';
ReplaceWith = '!!!';
N = 20;
type
str_input = string[N];
mystr = string[N*3];
procedure Input(var Str:mystr);
var
Str_in:str_input;
begin
write('‚ўҐ¤ЁвҐ Ёб室­го бва®Єг (­Ґ Ў®«ҐҐ ',N,' бЁ¬ў®«®ў): ');
readln(Str_in);
Str:=Str_in;
end;
procedure Replace(var Str:mystr);
var
Pos_delete:byte;
begin
while pos(ToReplace,Str)<>0 do
begin
Pos_delete:=pos(ToReplace,Str);
delete(Str,Pos_delete,1);
insert(ReplaceWith,Str,Pos_Delete);
end;
end;
procedure Output(Str:mystr);
begin
writeln('Џ®«г祭­ п бва®Є : ',Str);
end;
var
Str:mystr;
begin
Input(Str);{ўў®¤ Ёб室­®© бва®ЄЁ}
Replace(Str);{§ ¬Ґ­  "." ­  "!!!"}
Output(Str);{ўлў®¤ Ї®«г祭­®© бва®ЄЁ}
end.