[NekitoSSSS]

упс, спс, вот поправочка:

Код:

try 
if Помог=тру then inc(репутация);
except 
on e:ПоздноПомог do dec(репутация);
on e1:ПомогНоНеРаботает do inc(o_O);
end;

исправь если с ошибками)))