我的复杂度是O(N^2+K)的，怎么会超时

附代码：

//pyc-49a

var

n,k,i,j,x,y:longint;

ch:char;

a:array[1..1000,1..1000] of longint;

r,c:array[1..1000] of longint;

procedure swap(var a,b:longint);

var

t:longint;

begin

t:=a;

a:=b;

b:=t;

end;

begin

readln(n,k);

for i:=1 to n do

for j:=1 to n do

read(a[i,j]);

readln;

for i:=1 to n do

r[i]:=i;

for i:=1 to n do

c[i]:=i;

for i:=1 to k do

begin

readln(ch,x,y);

case ch of

'R':

swap(r[x],r[y]);

'C':

swap(c[x],c[y]);

'A':

writeln(a[r[x],c[y]]);

end;

end;

end.

我也差不多，前三个点还WA了……

快速读入 此题网上有原题所以官方加了7组超大数据

回复 #2 火冰星龙：pascal如何快速读入？