[serj71298]

Извините, маленькая проблема возникла:
При вводе « n» - разного количества в массивы прог. ругается
(i>n) при любых условиях: <=, >=, =.

Код:

 
repeat
 if a[i] = b[i] then Result:= False
 else i:=i+1;
 Until (i>n) or (Result= False);