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

Const n=10;
var a:array[1..n] of integer;
i:integer; 
begin
Randomize;
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

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  a.Pairwise.Where(x->x[0]+x[1]>50).Println;
end.

Пример
n= 15
-59 52 29 -81 -80 52 69 -43 30 74 -24 -15 50 47 0
(52,29) (52,69) (30,74) (50,47)

Rem BASIC-256
cls
errors = 0
print "Введите текст > ";

rem Пользователь вводит текст
input a$

rem Перебираем все буквы с начала и до предпоследней
for i=1 to length(a$)-1

rem Если встречаем букву Ч или Щ
if mid(a$, i, 1) = "ч" or mid(a$, i, 1) = "щ" then

rem Тогда проверяем следующую за ней букву.
rem Если это буква я, тогда подсчитываем очередную ошибку
if mid(a$, i + 1, 1) = "я" then errors = errors + 1
end if

rem Переходим к следующей букве
next i

rem Вывод результата
print "Количество ошибок в тексте ";
print errors

rem Конец программы
end

1. Вкладки  --- H. переключение между ними осуществляется щелчком мыши по их названию, на них размещаются элементы управления

2. Текстовые поля  --- E. служит для ввода последовательности символов

3. Списки  --- F. представляет собой набор значений и выглядит как текстовое поле, снабженное кнопкой с направленной вниз стрелкой

4. Переключатели  --- C. служат для выбора одного из взаимоисключающих вариантов

5. Флажки  --- G. обеспечивают присваивание какому-либо параметру определенного значения и могут располагаться как группами, так и поодиночке

6. Счетчики  --- A. представляет собой пару стрелок, которые позволяют увеличивать или значение в связном с ним поле

7. Ползунки  --- D. позволяет плавно изменять значение какого-либо параметра

8. Командные кнопки  --- B. щелчок по ним обеспечивает выполнение того или иного действия, а надпись на них поясняет назначение