Паскаль. Матрица

[delphin100]

Появилась такая задача, как её решить пока не знаю подскажите.
Есть таблица 4*4 заполнена (1,0) в произвольном порядке нужно меняя в каждый шаг один столбец и одну строку. Придти к таблице заполненой только единицами.
Пример:
1000
1011
1000
0011

2 шаг
1100
1111
1100
1100

3 шаг
1101
0010
1101
1101

4 шаг
1111
1111
1111
1111

Вот так как это реализовать на Паскале или хотябы закономерность, алгоритм подскажите.

[kommunist]

program matrica;
uses crt;
const n =4;
type matr = array [ 1..n,1..n] of integer;
var i:integer;
    j:integer;
    a:matr;
begin
    clrscr;
    randomize;
    for i:= 1 to n do
begin
    for j:= 1 to n do
begin
    a[i,j]:=random(2);
    write(a[i,j], ' ');
end;
writeln;
end;
   writeln;
   for i:= 1 to n do
begin
   for j:= 1 to n do
begin
   if a[1,j] = 0 then
   a[i,j]:= 1;
   if a[i,1] = 0 then
   a[i,j]:=1;
   write(a[i,j], ' ');
   end;
writeln;
end;
    writeln;
   for i:= 1 to n do
begin
   for j:= 1 to n do
begin
   if a[2,j] = 0 then
   a[i,j]:=1;
   if a[i,2] = 0 then
   a[i,j]:=1;
   write(a[i,j],' ' );
end;
   writeln;
end;
   writeln;
 for i:= 1 to n do
begin
   for j:= 1 to n do
begin
   if a[3,j] = 0 then
   a[i,j]:=1;
   if a[i,3] = 0 then
   a[i,j]:=1;
   write(a[i,j],' ' );
end;
writeln;
      for i:= 1 to n do
begin
   for j:= 1 to n do
begin
   if a[4,j] = 0 then
   a[i,j]:=1;
   if a[i,4] = 0 then
   a[i,j]:=1;
   write(a[i,j],' ' );
end;
writeln;
end;
readln;
end;
end.

[delphin100]

Спасибо сейчас посмотрю.

[delphin100]

Надо в строке и столбце 1 на 0 тоже менять на пересечении только один раз.