Помогите Pascal !!Безотлагательно!! Пожалуйста!!

var n, d, nd, v, a: integer;

begin

readln(n);

d := 0;

nd := 0;

v:= 0;

while v lt;gt; n do

begin

read(a);

if a = 0 then  

nd := nd + 1  

else d := d + 1;

v := v + 1;

end;

if d lt; nd then

writeln('They do not understand!') // dovolnye lt; nedovolnye  

else if d = nd then

writeln('May be I should buy more Tverdysh')// dovolnye = nedovolnye  

else  

writeln('I am hero!'); // dovolnye gt; nedovolnye  

end.