Помогите с программой на pascal

Это называется поменять порядок на обратный — реверс!

На вот рабочий вариант:
var
 i, n: Integer;
 a: array[1..20] of Integer;
begin
 Randomize;
 n := Random(20) + 1;
 for i := 1 to n do
 begin
  a[i] := Random(101) - 50;
  Write(a[i]:4);
 end;
 for i := 1 to n div 2 do
 begin
  a[i] := a[i] xor a[n - i + 1];
  a[n - i + 1] := a[n - i + 1] xor a[i];
  a[i] := a[i] xor a[n - i + 1];
 end;
 WriteLn;
 for i := 1 to n do
  Write(a[i]:4);
end.

17 26 65 92 50 52 36 60 27 2
2 27 60 36 52 50 92 65 26 17

49 47 14 20 94 44 51 51 8 7
7 8 51 51 44 94 20 14 47 49

11 85 82 80 90 45 38 30 11 92
92 11 30 38 45 90 80 82 85 11

98 74 36 71 18 68 11 1 91 86
86 91 1 11 68 18 71 36 74 98

66 75 73 49 80 7 81 35 15 44
44 15 35 81 7 80 49 73 75 66

53 67 6 41 95 2 42 34 43 3
3 43 34 42 2 95 41 6 67 53

82 10 54 77 8 13 26 46 74 21
21 74 46 26 13 8 77 54 10 82

54 84 13 66 8 22 32 36 44 100
100 44 36 32 22 8 66 13 84 54

81 37 21 59 41 3 9 61 68 50
50 68 61 9 3 41 59 21 37 81

20 15 62 24 45 5 22 78 3 95
95 3 78 22 5 45 24 62 15 20

33 51 93 21 40 72 31 35 47 31
31 47 35 31 72 40 21 93 51 33

64 75 26 17 35 52 56 75 38 35
35 38 75 56 52 35 17 26 75 64

90 34 6 27 20 64 83 14 29 51
51 29 14 83 64 20 27 6 34 90

47 8 16 10 93 87 46 39 72 80
80 72 39 46 87 93 10 16 8 47

58 51 18 26 39 87 4 11 83 81
81 83 11 4 87 39 26 18 51 58

79 35 89 48 27 71 66 89 13 9
9 13 89 66 71 27 48 89 35 79

3 2 32 100 91 30 1 66 4 89
89 4 66 1 30 91 100 32 2 3

11 64 48 64 30 31 4 50 32 70
70 32 50 4 31 30 64 48 64 11

41 100 27 75 16 38 53 7 18 56
56 18 7 53 38 16 75 27 100 41

82 65 32 81 1 80 97 79 49 37
37 49 79 97 80 1 81 32 65 82

71 44 17 65 90 100 32 95 96 15
15 96 95 32 100 90 65 17 44 71

91 37 41 98 40 17 45 75 63 8
8 63 75 45 17 40 98 41 37 91

72 63 18 13 20 16 93 14 68 46
46 68 14 93 16 20 13 18 63 72

5 81 82 82 88 93 82 98 15 18
18 15 98 82 93 88 82 82 81 5

66 26 21 53 71 72 22 57 70 69
69 70 57 22 72 71 53 21 26 66