Составить легкую программу! Зеркально отразить последовательность в одномерном…

Вот, пингвинчик: 3 Можно было и короче, переменных поменьше и циклов… Но раз задача именно такая, то лучше не сокращать, а то могут оценку снизить) var a: array [1… 10] of integer; i, x, y, xi, yi, t: integer; begin for i: =1 to 10 do readln (a[i]); writeln ('X, Y'); readln (X, Y); for i: =1 to 10 do begin if (a[i]=X) then xi: =i; if (a[i]=Y) then yi: =i; end; t: =a[xi]; a[xi]: =a[yi]; a[yi]: =t; for i: =1 to 10 do writeln ('[', i, '] => ', a[i]); end.