OJ Board

I got WA for this problem but I don't know why
Please help me!!!
this is my pascal code


type
arr=array[1..20] of char;
var
s:arr;
l:array[1..50,1..2] of char;
n,i,j,q:byte;
c:char;
procedure hv(s:arr;k:integer);
var e,phu,p1,p2:byte; linh:0..1;
begin
for e:=k to n do
begin
c:=s[e]; s[e ...