Помогите пожалуйста!
Заполнить двумерный массив состоящий из 3 строк и 3 столбцов случайным образом. Элементы массива принадлежат промежутку от 15 до 25. Заменить главную диагональ значение числа 5 и вывести на экран полученный массив. Программа на Паскале

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