В линейном массиве целых чисел вставить на 10-е место заданное число
... readln(zadannoeChislo); massive[10] := zadannoeChislo; ...