Что тут не так написано? что нужно исправить? program lala; var a : array [1..10] of integer; i : integer; begin for i: =1 to 10 do real (a[i]); for i: =1 to 10 do writeln (a[1],' ',a[2],' ',a[3],' ',a[4],' ',a[5],' '); writeln (a[6],' ',a[7],' ',a[8],' ',a[9],' ',a[10],' '); end. ошибка времени выполнения: system.invalidprogramexception: компилятор jit обнаружил внутреннее ограничение. стек: в z.z.$main() в program1.program.main()

Не real, а read:
for i:=1 to 10 do
read(A[i]);
Сколько раз вы выводите массив?
Потому что это что-то непонятное:
for i:=1 to 10 do
writeln (A[1],' ',A[2],' ',A[3],' ',A[4],' ',A[5],' '); (10 раз выводятся первые 5 элементов(?))
writeln (A[6],' ',A[7],' ',A[8],' ',A[9],' ',A[10],' ');

Если нужно вывести массив 1 раз:
for i:=1 to 10 do
writeln (A[i],' ');