Menukar Data 2 Array

program TukarNilaiArray;
uses WinCrt;
const top=3;
type nilai = array[0..top] of integer;
var A,B,C : nilai;
i,n : integer;
key : char;

begin
write('Banyaknya Data = ');readln(n);
writeln ('---------------------------');
Writeln('Data A Mula-mula');
for i:=1 to n do begin
Write('masukkan nilai A ke-',i, ': ');readln(A[i]);
end;
writeln;
Writeln('Data B Mula-mula');
for i:=1 to n do begin
Write('masukkan nilai B ke-',i, ': ');readln(B[i]);
end;
writeln;
write('Apakah Anda Akan Menukar Data A dab B [Y/T]?');
key := readkey;
writeln;
if upcase(key)='Y' then begin
writeln('============================================');
for i:=1 to n do begin
C[i] := A[i];
A[i] := B[i];
B[i] := C[i];
end;

writeln('Data A Menjadi');
writeln('--------------');
for i:=1 to n do begin
Writeln('Data A ke-',i,' : ',A[i]);
end;

writeln;
writeln('Data B Menjadi');
writeln('--------------');
for i:=1 to n do begin
Writeln('Data B ke-',i,' : ',B[i]);
end;

end else write('Gak jadi ditukar');
readln;
end.