Переменные еще определить нужно, var ...
Во второй можно так долго не считать, достаточно for i=1 to n do if a[i,i]>max then max=a[i,i];
Начальное значение max нужно брать из массива, например max:=a[1,1];