Строки

[Т@нзиля]

. Дан текст, заменить все вхождения заданного слога (сочетания 2-х символов) на заданный символ.(Задача должна содержать два модуля: модуль 1 - описания используемые, как в основной программе, так и в других модулях; модуль 2 - функции обработки данных)

[Stilet]

А что именно у тебя не получается - описать модули или функции?
Если функция то вот:

function Replake(s,WhatSeek,WhatRepl:string):String;
var i:integer;
begin
 i:=pos(WhatSeek,s);
 while i>0 do begin 
   delete(s,i,2); insert(s,WhatRepl,i);
   i:=pos(WhatSeek,s);
 end;
 Replake:=s;
end;

[Т@нзиля]

модули не получаются.

[Т@нзиля]

Вот я набросала кое-что, посмотрите пожалуйста...

Модуль 1
program main;

uses
MyProc, MyTypes;

var
s: TMyStr;
begin
OutputStr('Введите текст');
InputStr(s);
Replake(s, ' ', ' ');
OutputStr(s);
ReadLn;
end.

Модуль 2

unit obrabotka;

interface

uses
MyTypes;

procedure InputStr(var s: TMyStr);
procedure OutputStr(const s: TMyStr);
function Replake(s,WhatSeek,WhatRepl:string) :String;



implementation

procedure InputStr(var s: TMyStr);
begin
ReadLn(s);
end;


procedure OutputStr(const s: TMyStr);
begin
WriteLn(s);
end;

function Replake(s,WhatSeek,WhatRepl:string) :String;
var i:integer;
begin
i:=pos(WhatSeek,s);
while i>0 do begin
delete(s,i,2); insert(s,WhatRepl,i);
i:=pos(WhatSeek,s);
end;
Replake:=s;
end;

end.

Модуль 3

unit op;
interface
type str= string;
implementation
end.