Здравствуйте! Мне нужна ваша помощь.(Pascal)

[newerow1989]

const n=10;
var p:array[1..n] of integer;
    i,min,i1,s,k:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      p[i]:=-10+Random(20);
      Write(p[i]:3,'  ');
   end;
   Writeln;
   Writeln;
   min:=p[1];
   For i:=2 to n do
      If Abs(min)>Abs(p[i]) then
         min:=p[i];
   Writeln('min = ',min);
   i1:=n+1;
   For i:=1 to n do
      If p[i]=0 then
      begin
         i1:=i;
         Break;
      end;
   s:=0;
   For i:=i1+1 to n do
      s:=s+Abs(p[i]);
   Writeln('s = ',s);
   k:=1;
   For i:=2 to n do
      If p[i] mod 2 = 0 then
      begin
         s:=p[i];
         For i1:=i downto k+1 do
            p[i1]:=p[i1-1];
         p[k]:=s;
         k:=k+1;
      end;
   For i:=1 to n do
      Write(p[i]:3,'  ');
   Writeln;
   Readln;
end.