> If user_of_anek.name=Алик then
> Алик.мудак:=True;
Разрешите поправить:
If user_of_anek.name=Алик then
begin
user_of_anek.мудак := True;
Алик_мудак := Алик_мудак + 1;
user_of_anek.gradue := -2;
user_of_anek.action := scroll_down;
user_of_anek.increment := with_PgDwn;
end;