OJ Board

I don't know whats wrong with my program.
It pass all my test cases, but Judge don't want to accept it(Wrong Answer).
Could anyone help me?

[pascal]


type
str1=string[20];
var
n_patches,n_bugs,n_iteration:integer;
str2,s3:str1;
mas:array [1..3,1..100] of str1;
time_max:integer;
r:boolean;
t ...