Операции с одномерным массивом, заданным генератором случайных чисел

uses crt;
const Max=100;
var Mas:array[1..Max] of integer;
    i,c,n:integer;
begin
  clrscr;
  randomize;
  repeat
    writeln('Введите количество элементов массива ');
    readln(n);
  until n in [1..Max];
  writeln('Введите число ');
  readln(c);
  for i:=1 to n do
    begin
      Mas[i]:=random(6);
      write(Mas[i],' ');
    end;
  for i:=1 to n-1 do
    if Mas[i]+Mas[i+1]=c then
      writeln('Это пара с номерами ',i,' и ',i-1)
    else writeln('Таких элементов нет!');
  readln;
end.

uses crt;
var b:array[1..100] of integer;
    n,i,k,m:integer;
begin
clrscr;
randomize;
write('Размер массива n=');
readln(n);
writeln('Исходный массив:');
for i:=1 to n do
 begin
  b[i]:=random(20);
  write(b[i],' ');
 end;
writeln;
writeln;
write('Введите число k=');
readln(k);
writeln('Пары соседних чисел, сумма которых=',k);
m:=0;
for i:=1 to n-1 do
if b[i]+b[i+1]=k then
  begin
   writeln(b[i]:4,b[i+1]:4);
   m:=1;
  end;
if m=0 then writeln('Таких пар нет.');
readln
end.