Помогите пожалуйста решить программу.
Дана матрица:
program ggg1;
uses crt;
var
a:array[1..4,1..4] of integer;
i,j:byte;
begin clrscr;
for i:=1 to 4 do
for j:=1 to 4 do
if i=j then a[i,j]:=1;
for i:=1 to 4 do begin
end;
for i:=1 to 4 do
for j:=1 to 4 do
if i<j then a[i,j]:=5;
for i:=1 to 4 do begin
writeln;
for j:=1 to 4 do
write (a[i,j],' ');
end;
end.
Надо вывести вниз через промежутки отдельно 1 строку и 1 столбец матрицы.