Bu örneğimizde birden çok kelimeye sahip bir metinimiz de (aralarında birer boşluk kabul edilerek) ilk kelime ve son kelimenin kendi içinde yer değiştirme örneğini yapacağız.

Kodlar şu şekilde;
uses crt;
var
metin,eklenecek:string;
i,adet,sira,sira2:integer;
begin
clrscr;
readln(metin);
metin:=metin+' ';
i:=length(metin);
repeat
i:=i-1;
until metin[i]=' ';

{ Burada son kelimeyi basa ekledik}
adet:=length(metin)-i+1;
eklenecek:=copy(metin,i+1,adet);
delete(metin,i,adet);
insert(eklenecek,metin,1);

{˜lk kelimeyida sona ekliyoruz}
sira:=pos(' ',metin);
delete(metin,sira,1);
sira2:=pos(' ',metin);
eklenecek:=copy(metin,sira,sira2-sira);
delete(metin,sira,sira2-sira);
insert(' '+eklenecek,metin,length(metin)+1);

writeln(metin);

readln;
end.

2. yol;
uses crt;
var
metin,h:string;
i,son,j:integer;
kelimeler: array [1..10] of string;
begin
clrscr;
write('metin giriniz.'); readln(metin);
j:=0;
son:=0;

for i:=1 to length(metin) do begin
if metin[i]=' ' then begin
j:=j+1;
kelimeler[j]:=copy(metin,son,i-son);
son:=i+1;
end;
end;
h:=kelimeler[1];
kelimeler[1]:=kelimeler[j];
kelimeler[j]:=h;
for i:=1 to j do
write(kelimeler[i],' ');

readln;
end.

Proje Dosyasını indir-1-
Proje Dosyasını indir -2-

Kaynak: http://www.tekno-logy.com/bir-metindeki-ilk-kelime-ile-son-kelimenin-yerlerini-degistirmek.html