Напишите программу табулирования функций для аргумента

uses crt;
function F(z:real):real;
begin
F:=z*z-2*z-3;{можно любую функцию, лучше определенную на всей оси Х}
end;
var a,b,h:real;{границы интервала, шаг}
     x,y:real; {аргумент и функция}
    Positive,Negative:array[1..100]of real;{массивы}
    max,xmax:real;{максимум и знач. аргумента}
    np,no,i:byte;{размеры массивов и счетчик циклов}
begin
clrscr;
write('Начало интервала a=');readln(a);
repeat
write('Конец интервала b=');readln(b);
until(b>a);
write('Шаг табуляции h=');readln(h);{лучше задавать кратно интервалу, например при а=0, b=3 h=0,1, 0,2, 0,5, 0,6, 1,0}
x:=a-h;{отступим на шаг назад, вероятнее попадем в последнюю точку}
max:=-1000;xmax:=0;{инициализируем переменные, за макс нужно взять такое маленькое число, которое заведомо будет меньше любого значения функции}
np:=0;no:=0;{начальные размеры массивов}
while x<=b do{пока не дошли до конца интервала}
  begin
    x:=x+h;{наращиваем х}
    y:=F(x);{считаем у]
    if y>max then{находим максимум}
      begin
        max:=y;{макс}
        xmax:=x;{точка макс}
      end;
    if y>0 then{если положительное}
      begin
       np:=np+1;{считаем}
       Positive[np]:=y;{в массив положительных}
      end
    else if y<0 then{также с отрицательными}
      begin
       no:=no+1;
       Negative[no]:=y;
      end;
    writeln('x=',x:4:1,'  y=',y:6:2);{выводим результат}
  end;
writeln;
readln;{задержка, посмотреть результат, а то потом может все не войти на экран}
writeln('Максимальное значение функции на интервале [',a:0:1,';',b:0:1,']=',max:0:2,' pri x=',xmax:0:1);
writeln('Массив положительных:');
for i:=1 to np do
write(Positive[i]:6:2);
writeln;
writeln;
writeln('Массив отрицательных:');
for i:=1 to no do
write(Negative[i]:6:2);
readln
end.

uses crt;
const n=6;{строки}
      m=7;{столбцы}
var a:array[1..n,1..m] of byte;{матрица}
    b:array[1..m] of byte;{массив}
    i,j,k:byte;
begin
clrscr;
randomize;
writeln('Matrica A:');{создаем и выводим матрицу}
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
        a[i,j]:=random(3);{числа от 0 до 2}
        write(a[i,j]:3);
      end;
    writeln;
  end;
for j:=1 to m do{идем по столбцам}
  begin
    k:=0;
    for i:=1 to n do{в столбце вниз}
    if a[i,j]=0 then k:=k+1;{если ноль, то считаем}
    b[j]:=k;{записываем в массив}
  end;
writeln('Masiv B:');{выводим массив}
for i:=1 to m do
write(b[i],' ');
readln
end.