Напишите программу, которая в последовательности целых чисел определяет сумму двух наибольших и сумму двух наименьших

program Project1;
 
const
  maxelem = 1000;
  maxvalue = 30000;
var
  i,j: integer;
  vector: array [1..maxelem] of integer;
  min1, min2, max1, max2: integer;
begin
  i:= 1;
  while i <= maxelem do
    begin
      write('Введи число: ');
      readln(vector[i]);
      if (vector[i] = 0) and (i <= 2) then
        begin
          writeln('В последовательности должно быть не менее двух чисел!');
          dec(i);
        end
      else
        if  vector[i] = 0  then
          begin
            dec(i);
            break;
          end;
      inc(i);
    end;
  min1:= maxvalue;
  min2:= min1;
  max1:= -maxvalue;
  max2:= max1;
  for j:= 1 to i do
    begin
      if vector[j] < min1 then
        min1:= vector[j];
      if vector[j] > max1 then
        max1:= vector[j];
    end;
  for j:= 1 to i do
    begin
      if (vector[j] < min2) and (vector[j] <> min1) then
        min2:= vector[j];
      if (vector[j] > max2) and (vector[j] <> max1) then
        max2:= vector[j];
    end;
  writeln('Сумма наибольших чисел последовательности: ', max1 + max2 );
  writeln('Сумма наименьших чисел последовательности: ', min1 + min2 );
  readln;
end.