Ввести три числа, найти наименьшее отношение этих чисел - Pascal ABC

const s: array [1..6, 1..2] of byte =
  ((1, 2), (2, 1), (1, 3), (3, 1), (2, 3), (3, 2));
var a: array [1..3] of real;
    i, imin: integer;
    divide, min: real;
    found: boolean;
begin
  for i := 1 to 3 do
    begin
      write('Число ', i, ' = ');
      readln(a[i])
    end;
  found := false;
  for i := 1 to 6 do
    begin
      if a[s[i, 2]] <> 0
        then begin
          divide := a[s[i, 1]] / a[s[i, 2]];
          if not found or (divide < min)
            then begin
              found := true;
              min := divide;
              imin := i
            end
        end
    end;
  if found
    then begin
      writeln('Наименьшее соотношение чисел:');
      writeln('Число ', s[imin, 1], ' / число ', s[imin, 2], ' = ', min)
    end
    else writeln('Наименьшее соотношение чисел не найдено: все числа равны нулю.');
  readln
end.