Задача, Вывод массива вещественных чисел Опции

[TORETO]

Программа: вводится массив. нужно циклически сдвинуть его на 2 позиции влево.
Проблема: через random вещественные числа вводятся как-то непонятно(как сделать так, чтобы массив сначала выводился как есть в строку, а потом сдвинутый на другой строке?) Хелп

program pila;
uses crt;
const
 n=10;
var
 x:array[1..n] of real;
 i:integer;
begin
 clrscr;
 randomize;
 for i:=1 to n do begin
 x[i]:=random(100)-50;
 write(x[i]:6:2);
 end;
 writeln;
 for i:=1 to n-2 do begin
 x[i]:=x[i+2];
 write(x[i]:6:2);
 end;
 readkey;
end.

Проблема в этой строке:

x[i]:=random(100)-50;
write(x[i]:6:2);

P.S. Массив обязательно вещественный(может его не через random задавать? тогда как сделать так чтобы элементы печатались в одну строку,а не на следующей?)

[TORETO]

А как тогда так сделать, как ты говоришь?Как код будет выглядеть?