Update 2 вариант  №2.pas