Найти все пары последовательных чисел массива, сумма которых больше 50.паскаль

const n=10;var a:array[1..n] of integer;i:integer; beginRandomize;for i:=1 to n do begin a[i]:=random(51); write(a[i]:3); end;writeln;writeln('Пары соседних элементов с суммой > 50:');for i:=2 to n do  if a[i-1]+a[i]>50 then writeln(a[i-1]:3,'  ',a[i]);end.Пример: 12 34 23  1 12  3  1 42 30 36Пары соседних элементов с суммой > 50: 34  23 42  30 30  36