Недавно начал учиться программировать в Pascal, создал такую штуку стандартными приметивами