Паскаль, не могу найти ошибку в программе

[Julinja]

Написала программу, но как-то неправельно. Суть программы: составить таблицу в 5 столбиках, которая отображает значения функции X и F(X), если X в интервале ще -4 до 4. Надо чтобы результаты шли по горизонтали парами 5 раз, потом на новый ряд. У меня они в каждом столбике одинаковые, идут как-бы вниз. Может кто-нибудь может наити ошибку..
Вот текст программы:

program uzd;
uses crt;
var I,L:integer;
X,Y:real;
begin
clrscr;
X:=-4;

for I:=1 to 5 do begin
if I=1 then write ('╔════╤══════')
else write ('╤════╤══════');
L:=(I mod 5);
If L=0 then writeln ('╗');
end;


for I:=1 to 5 do begin
if I=1 then write ('║ x │ f(x) ')
else write ('│ x │ f(x) ');
L:=(I mod 5);
if L=0 then writeln ('║');
end;

repeat
Y:=X*X*X-4*X+2;
for I:=1 to 5 do begin
if I=1 then write ('╟────┼──────')
else write ('┼────┼──────');
L:=(I mod 5);
if L=0 then writeln ('╢');

end;

for I:=1 to 5 do begin
if I=1 then write ('║',X:4:1,'│',Y:6:2)
else write ('│',X:4:1,'│',Y:6:2);
L:=(I mod 5);
if L=0 then writeln ('║');
end;

X:=X+0.1
until X>4;

for I:=1 to 5 do begin
if I=1 then write ('╚════╧══════')
else write ('╧════╧══════');
L:=(I mod 5);
If L=0 then writeln ('╝');
end;

readkey
end.

[Сергей089]

Привет. Попробовал решить эту задачу. Проверь результат.

program uzd;
uses crt;
var j:integer;
x,y:real;
begin
clrscr;
for j:=1 to 5 do
write ('x':7,'f(x)':7);
writeln;
x:=-4;
j:=0;
repeat
y:=x*x*x-4*x+2;
j:=j+1;
write (x:7:2,y:7:2);
x:=x+0.1;
if j=5 then begin
j:=0;
writeln;
end;
until x>4;
readkey;
end.

Только я не знаю как рисовать границы таблицы.

[Julinja]

Хмм.. Работает так, как надо, но под свою рамку таблицы подставить не получается.. Попробую подругому подставить..