Сформировать связанный список в ходе ввода данных

Для массива из 10 элементов: program test; uses crt; var arr: array[1… 10] of integer; i,sum: integer; avr: real; begin clrscr; for i: =1 to 10 do begin write ('Input: '); readln (arr[i]); sum: =sum+arr[i]; end; avr: =sum/length (arr); for i: =1 to 10 do write (arr[i],'); writeln; write ('Average=',avr); end.