вот есть задача, никак решить не могу:
Дано: type vector=array[1..20] of char; var x,y,a.b:vector. Разработать процедуру, преобразующую векторы x и y к виду x=(a1...a3,x9...x20), y=(y1...y5,b1...b6,y12...y16, a1...a4), где Vi - i-тая компонента вектора a.