Составьте программу, которая меняет местами первое и последнее слово в строке…

Код Pascal123456789101112131415161718192021222324252627282930313233343536373839404142434445464748uses crt; var s1,s2,z1,z2: string; i: integer; beginz1: ='Минск столица Беларуси'; z2: ='Беларусь ты моя синеокая'; writeln ('Dana stroka: '); writeln (z1); s1: ='; s2: ='; i: =1; while z1[i]<>' do begin s1: =s1+z1[i]; inc (i); end; i: =length (z1); while z1[i]<>' do begin s2: =z1[i]+s2; dec (i); end; delete (z1,1,length (s1); delete (z1,length (z1) -length (s2)+1,length (s2); write (s2,z1,s1); writeln; writeln ('Dana stroka: '); writeln (z2); s1: ='; s2: ='; i: =1; while z2[i]<>' do begin s1: =s1+z2[i]; inc (i); end; i: =length (z2); while z1[i]<>' do begin s2: =z2[i]+s2; dec (i); end; delete (z2,1,length (s1); delete (z2,length (z2) -length (s2)+1,length (s2); write (s2,z2,s1); readln; end.