[Iska]

student_po, так переведите с VBA на Delphi. Алгоритм один и тот же.