OJ Board

Another solve +bug
Help me !!!!!!!!!!!!!!!!!!!!!!!!!!!!
var mas:array [1..255] of integer;
mas2:array [1..255] of integer;
n,m,i,j,s,zx,zz,sum,zx2,flag,flag2,zz2,sum2,best2,zy,best,max1,min1,min2,zy2,max2:integer;
begin
best:=1;
best2:=1;
readln(n) ;
for i:=1 to n do
read(mas[i]) ;
readln(m);
for ...

Can some help to me ??????
I need a solve it in pascal !!!!!!!!!
that is my solve where i have a bug?????
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var mas:array [1..255] of integer;
mas2:array [1..255] of integer;
n,m,i,j,s,zx,zz,sum,zx2,zz2,sum2,best2,zy,best,max1,zy2,max2:integer ...