Подсчитать значение y по формуле y=3x^2-4, если x< 0 и по формуле y=1/3x^2-4. x меняется в интервале от -6 до 6 с шагом 1. вывести на экран значение x и y. через while !

Uses crt;
var x, y, startX, endX n: Integer;
begin
x : = 1;
startX := -6;
if x < 0 then
while x < 0 do
begin
if startX <> endX
x := x + 1;
y := 3*sqr(x) - 4
end;

if x > 0 then
while x > 0 do
begin
if startX <> endX
x := x + 1;
y := (1/3*sqr(x)) - 4;
end;

writeln(x);
writeln(y);
end.