This is my solution. I have WA at 7-th test. Why?

var i,n,hu,sa:integer;
a:array[1..100]of integer; b:array[1..100]of string;
begin
read(n);
hu:=3;
sa:=10;
for i:=1 to n do begin
read(a[i]);read(b[i]);
if b[i]=' hungry' then
if a[i]>hu then hu:=a[i] else hu:=hu
else if a[i]<sa then sa:=a[i] else sa:=sa;
end;
if hu<sa then writeln(sa) else writeln('Inconsistent');
end.

Edited by author 23.02.2010 00:54