дана строка символов. получить ее перевертыш

uses crt;
const razd:set of char=[' ','.',',',':',';','!'];
var k:integer;
    st,buf:string;
begin
 clrscr;
 k:=0;
 write('Строка -> ');
 readln(st);
 
 repeat
  if (st[1] in razd) or (length(st)=0) then while st[1] in razd do delete(st,1,1)
  else
  begin
   while (not (st[1] in razd)) and (length(st)>0) do
   begin
    buf:=buf+st[1];
    delete(st,1,1);
   end;
 
  if buf[1]=buf[length(buf)] then inc(k);
  buf:='';
 
 end;
 until (length(st)=0) and (length(buf)=0);
 writeln(k);
 readln;
end.

uses crt;
const razd:set of char=[' ','.',',',':',';','!'];
var st,buf:string;
begin
 clrscr;
 write('Строка -> ');
 readln(st);
 
 repeat
  if (st[1] in razd) or (length(st)=0) then while st[1] in razd do delete(st,1,1)
  else
  begin
   while (not (st[1] in razd)) and (length(st)>0) do
   begin
    buf:=buf+st[1];
    delete(st,1,1);
   end;
 
  writeln(buf);
  buf:='';
 end;
 until (length(st)=0) and (length(buf)=0);
 readln;
end.

uses crt;
var st:string;
i:integer;
begin
 clrscr;
 write('-> ');
 readln(st);
 while pos('*',st)>0 do delete(st,pos('*',st),1);
 i:=1;
 while i<=length(st) do
 begin
  insert(st[i],st,i);
  i:=i+2;
 end;
 writeln(st);
 readln;
end.

uses crt;
var st:string;
i:integer;
begin
 clrscr;
 write('-> ');
 readln(st);
 for i:=1 to length(st)-1 do if st[i]='*' then st[i+1]:='-';
 writeln(st);
 readln;
end.

uses crt;
var st:string;
i:integer;
b:char;
begin
 clrscr;
 write('-> ');
 readln(st);
 for i:=1 to length(st) div 2 do
 begin
  b:=st[i];
  st[i]:=st[length(st)-i+1];
  st[length(st)-i+1]:=b;
 end;
 writeln(st);
 readln;
end.

uses crt;
var st,sub1,sub2:string;
i,k:integer;
begin
 clrscr;
 writeln('-> ');
 readln(st);
 k:=0; for i:=1 to length(st) do if st[i]='-' then inc(k);
 if k<>1 then writeln('Некорректный ввод!') else
 begin
  sub1:=copy(st,1,pos('-',st)-1);
  sub2:=copy(st,pos('-',st)+1,length(st)-pos('-',st));
  st:=sub2+'-'+sub1;
  writeln(st);
 end;
 readln;
end.