Первую подходящую цифру исходной строки добавить в конец же строки - Pascal - Ответ 9167362

const   sim=[',','.','!','?'];
 
type obj1=object
         s:string;
         k:integer;
         constructor init;
         function mesto:string;virtual;
         function kol:integer;virtual;
         end;
 
 
constructor obj1.init;
   begin
      writeln('vvedite text');
      readln(s);
   end;
 
 
 
function obj1.mesto:string;
   var i:integer;
      c:char;
   begin
      writeln('Input string');
      readln(s);
      for i:=1 to length(s) div 2 do
   begin
      c:=s[i];
      s[i]:=s[i+length(s) div 2];
      s[i+length(s) div 2]:=c;
   end;
      mesto:=s;
      readln;
   end;
 
 
 
function obj1.kol:integer;
  var i:integer; j:char;
  begin
     for i:=1 to length(s) do
     if  (s[i] in sim) and (i mod 2=0)  then
     k:=k+1;
     kol:=k;
  end;
 
 
 
 type   list=^elem;
        elem=record
         info:string;
         next:list;
         end;
 
       obj2=object(obj1)
            l:list;
            p:list;
            constructor init;
            function mesto:string;virtual;
            function kol:integer;virtual;
            procedure now;virtual;
         end;
 
 
 
 constructor obj2.init;
   var q:list;
   begin
   writeln('заполните');
   readln(s);
   if s<>'' then
      begin
      new(l);
      l^.info:=s;   {perviy}
      l^.next:=nil; {sled-nil}
      p:=l;
      readln(s);
      end;
    while s<>'' do
       begin
       new(q);        {}
       q^.info:=s;
       q^.next:=nil;
       p^.next:=q;
       p:=q;
       readln(s);
       end;
     s:=p^.info;
     end;
 
 
 
  function obj2.mesto:string;                                  (как я понимаю, следующие методы мои не верны)
    var
      i:integer;
      c:char;
  begin
 
     for i:=1 to length(s) div 2 do
  begin
     c:=s[i];
     s[i]:=s[i+length(s) div 2];
     s[i+length(s) div 2]:=c;
  end;
     mesto:=s;
     readln;
  end;
 
 
 
  function obj2.now:integer;
 begin
   p:=l;
   if p<>nil then
 begin
   while p^.next<>nil do
   p:=p^.next; {v konec}
   new(q); {ў **з*«®}
   q^.info:=x;
   p^.next:=q;
   p:=q;
 end
   else
   new(q);
   q^.info:=x;
   q^.next:=nil;
   p:=q;
 end;
 
 
  begin
  clrscr;
 
  obj1.init;
  writeln(obj1.kol);
  writeln;
 
  obj2.init;
  writeln(obj2.init(k))