Матрица, паскаль, помогите!

program example1;
var
V:array[1..100,1..100] of integer;
n, i,j, c: integer;
begin
write('Введите размерность массива n> ');
readln(n);
<заполнение ячеек массива
for i:= 1 to n do
for j:= 1 to n do
begin
write('V[',i,',',j,']= ');
readln(V[i,j]);
end;
s := 0;

for i:= 1 to n do
begin
a_max := V[i,1]
<нахождение максимального элемента в строке>
for j:= 1 to 100 do
begin
if V[i,j] > a_max Then a_max=V[i,j];
end;
s :=s+a_max;
end;
write('Сумма наибольших значений строк =', s);
end;

Примерно так, но внимательно проверьте. Объявите переменные s и a_max
Проверьте парность begin и end