Описываем очередь
uses crt;
type pLE = ^tLE; { tip = ukazatel }
tLE = record {ukazatel na :}
next: pLE; {sleduushii ukazatel}
data: integer; {tekushii element тип исправь на массив или char - если нужно}
end;

Queue = record{ukazatel na :}
head: pLE; {nachalo ocheredi}
tail: pLE; {konec ocheredi }
end;


Создание очереди
procedure create_list(var s: PLE; n:integer); {inicializaciya i dobavlenie elementov}
var i: integer;
begin
i:=1;
randomize;
s := nil;
while n>0 do {sluchaino ot 0 do n}
begin
new(p); {inicializaciya novogo ukazatelya}
p^.data := random(n); {znachenie elementa ocheredi cherez ukazatel} поставь readln, если нужно).
p^.next := s;
s := p;
dec(n);
end;

Вывод на экран
procedure print_list (s: pLE; n: integer); {vivod na ekran ne bolshe 100 elementov}
var test,i: integer;
begin
while n>0 do
begin
write(s^.data,' ');
s:=s^.next;
dec(n);
end;
writeln; writeln;
end;
end;


begin
clrscr;
write('Opredelite kol-vo elementov v spiske : '); readln(n);

create_list(s,n);
print_list(s,n);

readkey;
end.