Определить есть ли пара соседних элементов с суммой равной заданному числу. Составить на Паскале программу (массивы)

const  n=10;  var a:array[1..n] of integer;  i,k,s:integer;  begin  k:=0;  writeln('Введите число');  read(s);  writeln('Введите элементы массива');  for i:=1 to n do read(a[i]);  for i:=2 to n do if a[i]+a[i-1]=s then k:=k+1;  if k>0 then writeln('Есть') else writeln('Нету');  end.1