На 7 или на 8 тесте ошибка но все тесты что я видел все правильно идут вот код:
var
state:string;
n,i,k,max,min:integer;
h,s:boolean;
begin
readln(n);
min:=10;
max:=3;
for i:=1 to n do begin
                 readln(k,state);
                 delete(state,1,1);
                 if state='hungry' then begin
                                        if h=false then begin
                                                        max:=k;
                                                        h:=true;
                                                        end;
                                        if max<k then max:=k;
                                        end else begin
                                                 if s=false then begin
                                                                 min:=k;
                                                                 s:=true;
                                                                 end;
                                                 if min>k then min:=k;
                                                 end;
                 end;
if max>=min then write('Inconsistent') else write(min);
end.