Создание и использование модулей

procedure ChangeFirstWord(var s1,s2:string);
var ss1,ss2:string;
begin
 while s1[1]=' ' do delete(s1,1,1);
 while s1[1]<>' ' do
 begin
  ss1:=ss1+s1[1];
  delete(s1,1,1);
 end;
 
 while s2[1]=' ' do delete(s2,1,1);
 while s2[1]<>' ' do
 begin
  ss2:=ss2+s2[1];
  delete(s2,1,1);
 end;
 insert(ss2,s1,1);
 insert(ss1,s2,1);
end.

procedure ChangeLastWord(var s1,s2:string);
var ss1,ss2:string;
begin
 while s1[length(s1)]=' ' do delete(s1,length(s1),1);
 while s1[1]<>' ' do
 begin
  ss1:=ss1+s1[length(s1)];
  delete(length(s1));
 end;
 
 while s2[1]=' ' do delete(s2,length(s2),1);
 while s2[1]<>' ' do
 begin
  ss2:=ss2+s2[length(s2)];
  delete(s2,length(s2),1);
 end;
 insert(ss2,s1,length(s1));
 insert(ss1,s2,length(s2));
end.

Procedure DeleteLong(var s1,s2:string);
begin
 if length(s1)<>length(s2) then
 begin
  if length(s1)>length(s2) then s1:='' else s2:='';
 end;
end;
 
Procedure DeleteShort(var s1,s2:string);
begin
 if length(s1)<>length(s2) then
 begin
  if length(s1)<length(s2) then s1:='' else s2:='';
 end;
end;