Нужна помощь в решениях задач

var n,i,j:integer;
    s,p:real;//могут получиться числа больше чем тип integer
begin
write('n=');
readln(n);
s:=0;
for i:=1 to n  do
 begin
  p:=1;
  for j:=i to 2*i do
  p:=p*j;
  s:=s+p;
 end;
write('S=',s:0:0);
readln
end.

uses crt;
const nmax=100;
type mass=array [1..nmax]of integer;
 
procedure insertion(var a:mass;n:integer);
Var i,j,k,x: integer;
begin
for i:=2 to n do
 begin
  x:=a[i];{запоминаем очередной элемент}
  j:=1;{смотрим что слева от него}
  while x>a[j] do inc(j);{пока все меньше данного, идем вперед}
  for k:=i-1 downto j do{нашли меньший, сдвигаем массив от этого элемента-1}
  a[k+1]:=a[k];{на 1 вправо}
  a[j]:=x;{вставляем найденный элемент на место}
 end;
writeln('Отсортированный массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
end;
var a:mass;
    n,i:integer;
begin
clrscr;
randomize;
repeat
write('Введите размер массива от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Исходный массив:');
for i:=1 to n do
   begin
     a[i]:=random(20);;
       write(a[i],' ');
   end;
writeln;
insertion(a,n);
readln
end.

uses crt;
var s:string;
    m:set of char;
    i:byte;
begin
clrscr;
writeln('Введите строку:');
readln(s);
m:=[];{множество пока пустое}
i:=i;
while i<=length(s) do {идем по строке}
if not(s[i] in m) then{если символа нет еще в множестве}
 begin
  include(m,s[i]); {добавляем}
  i:=i+1;{идем вперед}
 end
else delete(s,i,1);{если есть, удаляем}
write(s);
readln
end.

uses crt;
var s,s1,s2:string;
    i,j,k,n:byte;
    c:char;
begin
clrscr;
writeln('Введите текст, слова отделены пробелами:');
readln(s);
s2:='';{новая строка}
i:=1;
while i<=length(s) do
if (s[i]<>' ')and ((i=1)or(s[i-1]=' ')) then{если буква, а перед ней пробел, или она первая}
 begin
  k:=i;s1:='';
  while(k<=length(s))and(s[k]<>' ')do {пока не пробел и не конец строки}
   begin
    s1:=s1+s[k];{составляем слово}
    k:=k+1;{идем вперед}
   end;
  for j:=1 to length(s1)div 2 do{переворачиваем}
   begin
    c:=s1[j];
    s1[j]:=s1[length(s1)-j+1];
    s1[length(s1)-j+1]:=c;
   end;
  s2:=s2+s1; {в новую строку}
  i:=i+length(s1);{перепрыгиваем}
 end
else
 begin
  s2:=s2+s[i];
  i:=i+1;
 end;
write(s2);
readln
end.