Задача на строки в Pascal Опции

[Артес]

Помогите с лабой!!!!!!!!!!!!!!!!!!!!!
Дана строка. в каждом нечетном слове заменить первую букву на последний символ строки!!!!!!!!!!!

[SergeyFX]

Помогите с лабой!!!!!!!!!!!!!!!!!!!!!
Дана строка. в каждом нечетном слове заменить первую букву на последний символ строки!!!!!!!!!!!

Вот быстро написал... только заменяет последний символ свола на последней строки.

var
X,Y,i:Integer;
S:String;
mas:array[1..256] of String[1];
Begin
Readln(s);
Y :=Length(s);
x:=0;
For i:=1 to Y do
Begin
mas[i]:=Copy(s,i,1);
End;
For i:=1 to y do
 Begin
 if mas[i] = ' 'then
Begin
 If mas[i-1] <> ' ' then
  Begin
     x:=x+1;
     if (x mod 2) =0 then mas[i-1] := mas[y];
  End;
End;
end;
Writeln(s);
Writeln;
For i:=1 to y do  write(mas[i]);
End.

!

Теги !