Есть по Турбо-паскалю: