Дан двумерный массив A целого типа размером 5x5,заполненный случайными числами в диапазоне от 1 до 10.Замените значения всех элементов пятого столбца на число 5.Зарание спасибо!

var a:array[1..5,1..5] of integer;i,j:integer;beginrandomize;for i:=1 to 5 do beginfor j:=1 to 5 do begina[i,j]:=random(10)+1;write(a[i,j],' ');end;writeln();end;for i:=1 to 5 do beginfor j:=1 to 5 do beginif j=5 then a[i,j]:=5;write(a[i,j],' ');end;writeln();end;end.