динамические структуры данных.линейные списки.

[Firgat13]

Сформировать список из N целочисленных случайных элементов (N- вводится пользователем ,значения элементов выбирать из диапазона от 0 до 99 ). После каждого элемента с четным числом вставить элемент , содержащий сумму цифр этого числа.
не могу сделать

[Firgat13]

uses crt;
type Ptr=^count;
count=Record
Key:integer;
Nexttr;
end;
var p,q,first,ltr;
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.









вроде так но нужно только сделать рандом а не самому вводить

[ZX Spectrum-128]

Readln(a);
Заменить на
A:=random(какое-нибудь_число);