Работа с вектором

var
  a:array[1..30] of integer;
 point,imax,max,min,p, i:integer;
  begin
    randomize;
    for i:=1 to 30 do
      begin
       a[i]:=random(20)-5;
       write(a[i]:3);
      end;
    writeln;
    writeln('Поиск минимального элемент вектора ');
    min:=a[1];
      for i:=1 to 30 do
        begin
         if a[i]<min then
          begin
            min:=a[i];
            point:=i;
          end;
        end;
      writeln('Минимальный элемент вектора = ', min);
      writeln;
      writeln('Произведение не нулевых элементов');
      p:=1;
        for i:=1 to 30 do
        begin
         if a[i]<>0 then p:=p*a[i];
        end;
      writeln('Произведение = ', p);
      writeln;
      writeln('вставить за минимальным элементом произведение нулевых элементов ');
      for i:=30 downto point+1 do
        a[i+1]:=a[i];
        a[point+1]:=p;
      writeln('После вставки:');
      for i:=1 to 30+1 do
        write(a[i]:4);
      writeln;
      writeln('Поиск номера максимального из 10 последних элементов вектора ');
      max:=a[30];
      for i:=30 downto 20 do
       if a[i]>max then
       begin
         max:=a[i];
         imax:=i
       end;
      writeln('Максимальный элемент = ',max, ' его номер = ', imax);
readln
    end.

var
  a:array[1..100] of integer;
 k,n,point,imax,max,min,p, i:integer;
  begin
      writeln('Введите размерность вектора');
      readln(n);
    randomize;
    for i:=1 to n do
      begin
       a[i]:=random(20)-5;
       write(a[i]:3);
      end;
    writeln;
    writeln('Поиск минимального элемент вектора ');
    min:=a[1];
      for i:=1 to n do
        begin
         if a[i]<min then
          begin
            min:=a[i];
            point:=i;
          end;
        end;
      writeln('Минимальный элемент вектора = ', min);
      writeln;
      writeln('Произведение нулевых элементов');
        for i:=1 to n do
        begin
         if a[i]=0 then p:=p*a[i];
        end;
      writeln('Произведение = ', p);
      writeln;
      writeln('вставить за минимальным элементом произведение нулевых элементов ');
      for i:=30 downto point+1 do
        a[i+1]:=a[i];
        a[point+1]:=p;
      writeln('После вставки:');
      for i:=1 to n+1 do
        write(a[i]:4);
      writeln;
      writeln('Введите число из скольки последних элементов необходимо найти максимум');
      readln(k);
      writeln('Поиск номера максимального из ',k,'  последних элементов вектора ');
      max:=a[n];
      for i:=n downto k do
       if a[i]>max then
       begin
         max:=a[i];
         imax:=i
       end;
      writeln('Максимальный элемент = ',max, ' его номер = ', imax);
readln
    end.