Решите пожалуйста задачи по Delphi

[Tusy]

Решите пожалуйста задачи по Delphi

Кот Матроскин и Шарик загадывали четные и нечетные числа в произвольном порядке, пока не кончилось место на печке, где они записывали эти числа. Определить, каких чисел было загадано больше: четных или нечетных, если последним было записано число 0 (0 при подсчете не учитывать!). Сколько четных чисел предшествовало первому нечетному? Вводятся целые числа(типа Integer), последним вводится 0. Всего вводится не более 1000 чисел.
Вывести: в первой строке количество чисел, которых было записано больше.
во второй строке вывести количество четных чисел, предшествующих первому нечетному. Если нечетных чисел не встретилось, вывести 0.

ПРИМЕР ВВОДА:
2 1 3 4 5 6 7 8 9 0

ПРИМЕР ВЫВОДА:
5
1

ПРИМЕР ВВОДА:
2 4 6 8 10 0

ПРИМЕР ВЫВОДА:
5
0

[mod2]Не следует цепляться к чужим темам. Создал новую.

Модератор[/mod2]

 

[interacia]

консольный режим.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
a,i:integer;
het,nehet:integer;
bol:boolean;
begin
i:=0;
het:=0;
nehet:=0;
Writeln('Введите набор ненулевых целых чисел; признак его завершения - число 0.');
Read(a);
bol:=true;
While (a<>0) do
begin
if (a mod 2)=0 then
  begin
  inc(het);
  if bol then inc(i);
  end;

if (a mod 2)=1 then
  begin
  inc(nehet);
  bol:=false;
  end;
Read(a);
end;
Writeln('Otvet');
if nehet>het then Writeln(nehet);
if het>nehet then Writeln(het);
if nehet=het then Writeln(nehet,'=',het);
if nehet=0 then Writeln(0)
else Writeln(i);
readln;
readln;
end.