Определить минимальные элементы AQ1,AQ2,AQ3 заданных массивов Q1(6),Q2(18),Q3(14) и наименьший среди них

const
    N1 = 6;
    N2 = 3 * N1;
    N3 = 14;
 
var
    q1: Array[1..N1] Of Integer;
    q2: Array[1..N2] Of Integer;
    q3: Array[1..N3] Of Integer;
    i, minID1, minID2, minID3: 1..18;
begin
    {заполнение}
    WriteLn;
    for i := 1 to N1 do
    begin
        Write('Q1[', i, ']='); ReadLn(q1[i]);
    end;
    WriteLn;
    for i := 1 to N2 do
    begin
        Write('Q2[', i, ']='); ReadLn(q2[i]);
    end;
    WriteLn;
    for i := 1 to N3 do
    begin
        Write('Q3[', i, ']='); ReadLn(q3[i]);
    end;
    WriteLn; WriteLn;
    {поиск минимума в массивах}
    minID1 := 1;
    for i := 2 to N1 do
        if (q1[minID1] > q1[i])
        then
            minID1 := i;
    WriteLn('AQ1=', q1[minID1]);
    minID2 := 1;
    for i := 2 to N2 do
        if (q2[minID2] > q2[i])
        then
            minID2 := i;
    WriteLn('AQ2=', q2[minID2]);
    minID3 := 1;
    for i := 2 to N3 do
        if (q3[minID3] > q3[i])
        then
            minID3 := i;
    WriteLn('AQ3=', q3[minID3]);
    {поиск минимума в минимумах}
    WriteLn;
    if ((q1[minID1] <= q2[minID2]) And (q1[minID1] <= q3[minID3]))
    then
        WriteLn('MIN=', q1[minID1])
    else
        if (q2[minID2] <= q3[minID3])
        then
            WriteLn('MIN=', q2[minID2])
        else
            WriteLn('MIN=', q3[minID3]);
end.