Пожалуйста посчитайте пожалуйста!!! Очень срочно!!!

writeln('n=');
readln(n);
for i:=1 to n do
  read(a[i]);
for i:=1 to n-1 do
  for j:=i+1 to n do
    begin
    p:=a[i]*a[j];
    if (p>max) and (p mod 26=0) then
      begin
      i1:=i;
      i2:=j;
      max:=p;
      end;
    end;
if max>0 then writeln(a[i1],', ',a[i2]) else writeln ('no')    
end.