дано число R И МАССИВ N (PASCAL)

uses crt;
const r=3;
      n=9;
var
   a:array[1..n] of real;
   i,kol,nach:INTEGER;
   raz,p,res,s:real;
begin
clrscr;
kol:=0;
for i:=1 to n do
 begin
  write('Введите ',i,' элемент массива=');
  readln(a[i]);
 end;
 
for i:=1 to n-1 do
 begin
  s:=s+a[i]+a[i+1];
  kol:=kol+2;
    if (a[i]+a[i+1]<(a[i]-r)) then p:=a[i];
    res:=raz;
   end;
  kol:=0;
  s:=0;
 
for i:=nach to nach+1 do
 write(a[i]:3);
readln
end.

Program mas;
Uses crt;
Const n=10;
Var a: array[1..n] of shortint; b: array[1..n-1] of integer; i,r,l,min: shortint;
Begin
Clrscr;
Randomize;
Writeln('Исходный массив: ');
For i:=1 to n do
begin
a[i]:=random(18)-9;
Write(a[i]:3);
end;
Writeln(^j);
r:=random(18)-9;
Writeln('Число r: ',r,^j);
For i:=1 to n-1 do
If abs(a[i]+a[i+1])>abs(r) then
b[i]:=abs(a[i]+a[i+1])-abs(r)
else b[i]:=abs(r)-abs(a[i]+a[i+1]);
min:=b[1];
l:=1;
For i:=2 to n-1 do
If b[i]<min then
begin
min:=b[i];
l:=i;
end;
Write('Сумма элементов ',a[l],' и ',a[l+1],' наиболее близка к числу ',r);
End.