Две задачки на массивы в Delphi(консольной)

[Atoris]

Первая прога : определить и напечатать в каком из массивов A(6) или B(6) больше нулевых элементов.

Вторая прога : Поменять местами первый и последний отрицательные элементы массива D(9). Напечатать преобразованный массив и номера переставленных элементов. Если в исходном массиве количество отрицательных элементов меньше двух, то напечатать соответствующий текст.

Требования к прогам : Предусмотреть ввод данных без повторной трансляции.
Т.е. запросить : "Продожить" или "не продолжить" выполнение проги (что-то типо того.)
Результаты напечатать по K чисел в строке.
Одна прога с обычным массивом , вторая с динамическим. Количество элементов массива вводить. A(6) - в скобках указано макс. кол-во элементов в массиве.

Исполнение в консольной Delphi.

[Stilet]

определить и напечатать в каком из массивов A(6) или B(6) больше нулевых элементов.

for i:=0 to 5 do begin
 nulA:=byte(a[i]=0);
 nulB:=byte(b[i]=0);
end;
 if nula>nulb then write ('В А больше');

Где i,nulA,nulB - integer;
Для остальных задач показывай наработки

[Don Karleone]

Сообщение от Stilet

for i:=0 to 5 do begin
 nulA:=byte(a[i]=0);
 nulB:=byte(b[i]=0);
end;
 if nula>nulb then write ('В А больше');

может всета ки так:

for i:=0 to 5 do
  begin
    Inc(nulA,byte(a[i]=0));
    Inc(nulB,byte(b[i]=0));
  end;
if nulA>nulB then writeln ('в A больше');]

[Stilet]

может всета ки так:

Ага. Эт я поспешил )