Найти произведение двух минимальных дробей

uses droby;
 
procedure nul(var z: frac);
begin
  z.P := 0; z.Q := 1;
end;
var
  i, o, g: byte; z, z1, z2: frac;x: boolean;N:integer;
  a:array of frac;
begin
//создание и заполнение массива дробями
  Writeln('Создание массива');
  Writeln('Введите количество дробей');
  Readln(N);
  SetLength(a,N);
      for i := 0 to N-1 do begin 
      write('Числитель ', i+1, ' дроби: '); read(a[i].p); 
      write('Знаменатель ', i+1, ' дроби: '); read(a[i].q); 
      writeLn(a[i].p, '/', a[i].q, '; '); end;
      writeln('Создан массив');
//вывод массива на экран      
  for i := 0 to N-1 do write(a[i].p, '/', a[i].q, '; ');
  writeln(' ');
  writeln(' ');
//вывод меню программы  
  writeln('0 Конец работы');
  writeln('1 найти сумму всех элементов; ответ представить в виде несократимой дроби');
  writeln('2 произведение двух дробей с минимальными значениями;');
  writeln('3 найти в массиве все дроби, больше первой');
  repeat
   nul(z); nul(z1); nul(z2);
    readln(o);
    case o of
      //чтобы не выводилась ошибка при выходе из программы
      0:begin end;
      
      1:
      //поиск суммы всех элементов
        begin
          z := a[0];
          Write('Сумма элементов массива = ');
          for i := 1 to N-1 do
            summa(z, a[i], z); writeln(z.P, '/', z.Q); 
        end;
        
      2:
      //произведение двух дробей с минимальными значениями
        begin 
        g:=0;
        for i:=0 to length(a)-1 do 
            begin
            z:=a[0];
            if bolsheravno(z,a[i]) then 
                begin 
                z1:=z;
                z:=a[i];
                g:=i;
                end;  
            end; 
        if (length(a)=1) then z1:=z;
        for i:=0 to length(a)-1 do 
            begin 
            if (bolsheravno(z1,a[i])and(i<>g)) then z1:=a[i]; 
            end;
            proizvedenie(z,z1,z2); writeln('произведение двух дробей с минимальными значениями = ',z2.P,'/',z2.q,'; ');
        end;
        
      3:
      //поиск всех дробей в массиве, которые больше первой дроби
        begin
          writeln('все дроби в массиве, которые больше первой дроби');
          for i:=0 to length(a)-1 do begin
            z:=a[i];
            if bolshe(a[0],z) then
              writeln(z.P,'/',z.q);            
          end; 
        end;
        
    else writeln('Неверный номер операции!')
    end; until o = 0;
  writeln('Конец работы с массивом');
end.

//произведение двух дробей с минимальными значениями
      begin
      z:=a[0];
      z1:=a[1];
      if menshe(z1,z) then
       begin
        z:=a[1];
        z1:=a[0];
       end;
     for i:=2 to n-1 do
     if menshe(a[i],z) then
      begin
       z1:=z;
       z:=a[i];
      end
     else if menshe(a[i],z1) then z1:=a[i];
     proizvedenie(z,z1,z2); writeln('произведение двух дробей с минимальными значениями = ',z2.P,'/',z2.q,'; ');
   end;