Вот исправленно:
Var a:array[1..1000,1..1000] of longint;
b:array[1..1000] of longint;
i,j,n,m,max,v:longint;
Begin
Writeln('Vvedite storony kvadrata');
Readln(n);
m:=n;
v:=0;
Writeln('Zapolnenie massiva');
For i:=1 to n do
For j:=1 to n do
Readln(a[i,j]);
max:=a[1,1];
For j:=1 to n do
For i:=1 to n do
begin
if a[i,j]>max
Then max:=a[j,i];
If n=m
then b[j]:=a[i,j];
end;
For i:=1 to j do
v:=v+b[i];
Writeln(v:2);
End.
Запускать на Pascal ABC.
Яркий пример "индусского кода" 