Паскаль 1)в двумерном массиве 4 на 3 заменить все нулевые элементы на первый элемент матрицы . 2) заменить все элементы главной диагонали на максимальный элемент той же строки

var a:array[1..20,1..20]of integer;
i,j:integer;
begin
for i:=1 to 4 do
for j:=1 to 3 do
readln(a[i,j]);
for i:=1 to 4 do
for j:=1 to 3 do
if a[i,j]=0 then a[i,j]:=a[1,1];
for i:=1 to 4 do begin
for j:=1 to 3 do
write(a[i,j],' ');
writeln;end;
end.