Задачка по Паскалю...

[oleeg]

program stroki;
uses crt;
var a,b,c,d:string;
    defuc:CHAR;
    z,x,v,n,m:integer;
begin
clrscr;
writeln('BBEDUTE CTPOKY ');
readln(a);
defuc:='-';
writeln('BBEDUTE PO3UCUI-O HA4ALA BTOPOrO CLOBA B PARE');
readln(z);
writeln('BBEDUTE DLUHY 2 CLOBA');
readln(x);
writeln('BBEDUTE DLUHY 1 CLOBA');
readln(v);
b:=copy(a,z,x);
c:=copy(a,0,v);
d:=concat(b,c);
writeln(d);
readln;
end.

Только эта программа считает для 1 пары слов, а надо для n пар слов

[AVer]

Получите, рапишитесь...

Var S,D,B,R:String;
    I:Integer;
Begin
R:='';
ReadLn(S);
While Pos(' ',S) <> 0 Do
 Begin
 D:=Copy(S,1,Pos(' ',S)-1);
 Delete(S,1,Pos(' ',S));
 B:=Copy(D,Pos('-',D)+1,Length(D)-Pos('-',D));
 Delete(D,Pos('-',D),Length(D)-Pos('-',D)+1);
 R:=R+B+'-'+D+' ';
 End;
B:=Copy(S,Pos('-',S)+1,Length(S)-Pos('-',S));
Delete(S,Pos('-',S),Length(S)-Pos('-',S)+1);
R:=R+B+'-'+S;
WriteLn(R);
ReadLn;
End.

[oleeg]

Пасиьб тебе большое!!!! Как мне тебя отблагодарить ? =))

[AVer]

Если есть предложения и большое желание отблагодарить - пиши в личку, на мыло windosmail[DOG]list.ru или ICQ: 289110444 А вообще рад стараться.