Пусть вводится последовательность из целых чисел, оканчивающаяся нулем. Найти 2 наибольших числа последовательности — Pascal(Паскаль)

program Zadanie;
 
var
  int: Array [1 .. 20] of Integer;
  i, j, max1, max2: Integer;
 
begin
  i := 1;
  WriteLn('Введите последовательность из целых чисел:');
  repeat
    Read(int[i]);
    i := i + 1;
  until int[i - 1] = 0;
  max2 := 0;
  max1 := int[1];
  for j := 1 to i - 1 do
    if max1 < int[j + 1] then
    begin
      max2 := max1;
      max1 := int[j + 1];
    end;
  WriteLn('2 наибольших числа последовательности=', max2, ', ', max1);
  ReadLn;
  ReadLn;
 
end.