Pascal.поменять местами первый и последний символ в последнем слове

[Kris92]

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

[Snejnaya]

var str0, str:string;
    ch1, ch_last:char;
    dlina_slova:integer;


begin
writeln('vvedite stroku');
readln(str0);
str:=str0;
n:=Pos('  ',str);
while(n<>0) do
begin
delete(str,1,n);
n:=Pos('  ',str);
end;
ch1:=str[1];
ch_last:=str[length(str)];
str:=copy(str,2,length(str)-1);
str:=ch_last+str+ch1;
dlina_slova:=length(str);
delete(str0,length(str0)-dlina_slova,length(str0));
str0=str0+str;
writeln('preobrasovannaya stroka:');
writeln(str0);
readln;
end.

[Grag]

var
  smbfst:char;
  Poz:byte;
  str:string;
begin
  readln(str);
  Poz:=Length(str);  //при условии, что последний символ в строке не "пробел"
  while (str[Poz]<>' ') and (Poz<>0) do
    Dec(Poz);
  smbfst:=str[Poz+1];
  str[Poz+1]:=str[Length(str)];
  str[Length(str)]:=smbfst;
  //Вот и все...
end.

[Snejnaya]

Кто такой умный, что поставил мне "-" - вот и ставил бы Grag-у плюс, как это сделала я, а не минуса раздавал.
Чужую работу об**ть много ума не надо - имейте совесть!

[Don Karleone]

Сообщение от Snejnaya

Кто такой умный, что поставил мне "-" - вот и ставил бы Grag-у плюс, как это сделала я, а не минуса раздавал.
Чужую работу об**ть много ума не надо - имейте совесть!

а как можно узнать, кто поставил - а кто +???

[Stilet]

а как можно узнать, кто поставил - а кто +???

У меня спросить. Но я не скажу.
Закрыли тему.