Задача паскаль. Составить программу для построения таблицы значений

[Rydon]

всем привет, помогите плиз с задачкой на паскале

Составить программу для построения таблицы значений   х и у для функции y=x(х+73)-0,Зx при изменении x в диапазоне [-10, 10] с шагом 0.6. В колонках должны быть n, x, у>0, у<0, где n - номер по порядку.
n   x      y>0     y<0
1   -10   -627
2   -9,4
3

[Rydon]

как вывести 3 колонки разобрался, но не могу понять как разделить у>0 и y<0
что тут исправить надо?

program iz4;
uses crt;
var b,c,d:array[1..100] of real; a:array[1..100] of integer;
n,i,j,k,m,x,z: integer;  l,o:real;
begin
clrscr;

n:=200 div 6;

o:=(-10);
l:=o;
write('n','x':10,'y>0':10,'y<0':10);
writeln;
j:=1;
for i:=1 to n do begin
a:=j;

  for k:=1 to n do begin
  b[k]:=l;
  end;
   for m:=1 to n do begin
   c[m]:=b[k]*(b[k]+73)-0.3*b[k];
   end;
j:=j+1; l:=l+0.6;
writeln(a,b[k]:10:1,c[m]:10:1);
end;
readkey; end.