Создать очередь из элементов массива.

uses crt;
const n=5;
{описание компонент очереди}
type
List=^Tlist;
Tlist=record
      data:real;{тип елеменетов в очереди}
      next:List;{указатель на следующий элемент}
      end;
var a:array[1..n,1..n] of real;
    sr,c:real;
    i,j:byte;
    pbegin,pend,u:List;{переменные типа указатель-начало,
                        конец и вспомогательная}
begin
clrscr;
randomize;
{создаем массив и находим в нем среднее}
sr:=0;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10*random;
    sr:=sr+a[i,j];
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
sr:=sr/(n*n);
writeln('Среднее=',sr:0:2);
{создаем очередь из одного элемента-среднее}
new(pbegin);
pbegin^.next:=nil;
pbegin^.data:=sr;
pend:=pbegin;
{добавляем в конец очереди элементы массива}
for i:=1 to n do
for j:=1 to n do
 begin
  new(u);
  u^.next:=nil;
  pend^.next:=u;
  pend:=u;
  pend^.data:=a[i,j];
 end;
{выводим элементы очереди на экран}
for i:=1 to n*n+1 do
 begin
  c:=pbegin^.data;
  write(c:5:2);
  pbegin:=pbegin^.next;
 end;
readln
end.