Арифметические операции в позиционных с.с. сложение, умножение, вычитание и деление на примере двоичной с.с.​

Const n=10;   var x: array[1..n] of integer; i,c: integer; begin writeln('исходный массив: '); for i: =1 to n do   begin   x[i]: =random(21)-10;   write(x[i]: 4);   end; writeln; for i: =1 to n div 2 do   begin c: =x[i]; x[i]: =x[n-i+1]; x[n-i+1]: =c; end; writeln('измененный массив: '); for i: =1 to n do write(x[i]: 4); writeln; end. пример: исходный массив:   -9   1   -7   3   -6   7   7   10   9   7 измененный массив:     7   9   10   7   7   -6   3   -7   1   -9

Var s,ss,s1,s2: string; p,p1,p2,max,min: integer; begin writeln('введите строку: '); readln(s); ss: =s+' '; max: =0; min: =255; p: =pos(' ',ss); while p> 0 do   begin   if p> max then begin max: =p; s1: =' '+copy(ss,1,p); end;   if p< min then begin min: =p; s2: =' '+copy(ss,1,p); end;   delete(ss,1,p);   p: =pos(' ',ss);   end; s: =' '+s+' '; p1: =pos(s1,s);   p2: =pos(s2,s);   if p1> p2   then begin delete(s,p1,max+1); insert(s2,s,p1); delete(s,p2,min+1); insert(s1,s,p2); end   else begin delete(s,p2,min+1); insert(s1,s,p2); delete(s,p1,max+1); insert(s2,s,p1); end; s: =trim(s); writeln(s); end.  пример: введите строку: поменяйте местами самое длинное и самое короткое слово и местами самое длинное поменяйте самое короткое слово