"Алгоритм обработки текста"

uses crt;
var s:string;
   n,i:byte;
begin
clrscr;
writeln('Введите слово');
readln(s);
n:=length(s);
for i:=1 to n do
s:='*'+s+'*';
write(s);
readln
end.

uses crt;
var s:string;
    k,i:byte;
    c:char;
begin
clrscr;
repeat
writeln('Введиде слово из четного числа букв');
readln(s);
until length(s) mod 2=0;
k:=length(s) div 2;
for i:=1 to k do
 begin
  c:=s[i];
  s[i]:=s[i+k];
  s[i+k]:=c;
 end;
write(s);
readln
end.

function F(S,find:string):byte;
begin
  if Pos(find,S)=0 then
    F:=0
  else
    F:=1+F(Copy(S,Pos(find,S)+Length(find),Length(s)),find)
end;
var
  s:string;
begin
  ReadLn(s);
  WriteLn(F(s,'ва'));
  ReadLn
end.

var
  s:string;
  i:byte;
begin
  ReadLn(s);
  for i:=1 to Length(s) do
  begin
    insert('*',s,1);
    insert('*',s,Length(s)+1)
  end;
  WriteLn(s);
  ReadLn
end.

var
  s:string;
  i:byte;
  temp:char;
begin
  ReadLn(s);
  for i:=1 to Length(s) div 2 do
  begin
    temp:=s[i];
    s[i]:=s[Length(s)-i+1];
    s[Length(s)-i+1]:=temp
  end;
  WriteLn(s);
  ReadLn
end.

var
  s:string;
  i:byte;
  temp:char;
begin
  ReadLn(s);
  for i:=1 to Length(s) div 2 do
  begin
    temp:=s[i];
    s[i]:=s[i+Length(s) div 2];
    s[i+Length(s) div 2]:=temp
  end;
  WriteLn(s);
  ReadLn
end.