Сформировать список из N целочисленных случайных элементов

uses crt;
type Ptr=^count;
     count=Record
           Key:integer;
           Next:ptr;
          end;
var p,q,first,l:ptr;
    n,i,k:integer;
begin
randomize;
//создаем исходный список
repeat
write('Размер списка n>1 n=');
readln(n);
until n>1;
writeln('Введите первый элемент от 0 до 99');
new(p);
first:=p;
p^.next:=nil;
repeat
 readln(a);
until a in [0..99];
p^.key:=a;
q:=p;
writeln('Введите остальные числа от 0 до 99');
for i:=2 to n do
 begin
  new(p);
  repeat
  readln(a);
  until a in [0..99];
  p^.key:=a;
  p^.next:=nil;
  q^.next:=p;
  q:=p;
 end;
//выводим его на экран
writeln('Исходный список');
p:=first;
while (p<>nil) do
 begin
  write(p^.key,' ');
  p:=p^.next;
 end;
writeln;
//вставляем суммы цифр после элементов с четными номерами
p:=first;
i:=0;
while p<>nil do
 begin
  k:=p^.key; //смотрим значение
  i:=i+1;    //его номер в начальном списке
  if i mod 2=0 then //если номер четный
   begin
    new(l);
    q:= p^.next;
    p^.next:=l;
    l^.next:=q;
    l^.key:=k div 10+k mod 10;//сумма цифр 1 и 2 значных чисел (0..99);
    p:=l^.next;
   end
  else  p:=p^.next; //если номер нечетный дальше
 end;
//выводим полученный список
writeln('Вставка суммы цифр после элементов с четными номерами');
p:=first;
while (p<>nil) do
 begin
  write(p^.key,' ');
  p:=p^.next;
 end;
end.

//ñîçäàåì èñõîäíûé ñïèñîê
repeat
write('Ðàçìåð ñïèñêà n>1 n=');
readln(n);
until n>1;
new(p);
first:=p;
p^.next:=nil;
p^.key:=random(100);
q:=p;
for i:=2 to n do
 begin
  new(p);
  p^.key:=random(100);
  p^.next:=nil;
  q^.next:=p;
  q:=p;
 end;