Вопрос Паскаль... Помогите написать программу

  var
  a: array [1..1000] of integer;
  i,n,sum,min: integer;
  label loop;
begin

  loop:
  writeln('Введите количество элементов');
  readln(n);
  if n>1000 then 
  begin
  writeln('Количество элементов должно быть от 2 до 1000');
  goto loop;
  end 
  else
  writeln('Введите элементы массива ');
  for i := 2 to n do
  begin
    Write('a[', i, '] -> ');
    readln(a[i]);
  end;
  a[1]:=25;
  writeln('Массив: ');
  for i := 1 to n do
  begin
    writeln(a[i], ' ');
    end;
     sum := 0;
    for i := 1 to n do
    begin
        sum := sum + a[i];
    end;
    if sum>30000 then 
    begin 
    writeln('Сумма элементов превышает 30000');
    goto loop;
    end ;
    min:=a[1];
    for i:=1 to n do
    begin
    if (min>a[i]) and (a[i] mod 5=0) then
    begin
    min:=a[i];
    end;
    end;
    writeln('Минимальный элемент массива кратный 5: ',min);
    goto loop;
end.