P1565错在哪：

program p1565;

var n,i,j,k,l,g:longint;

p,p1,min,max:int64;

s,s1:array[0..50] of char;

a,b:array[0..50] of longint;

c,d:array[0..50,0..50] of int64;

function max1(x,y:int64):int64;

begin

if x