замена пол. элиментов матрицы

[sllh_111]

Здраствуйте, помогите с решением задачи:
Вкождой строке матрицы положительные элементы заменить первым элементом строки.

вот составил, а дальше чё-то вообще никак не сооброжу

uses crt;
var
   a:array[1..10,1..10] of integer;
   i,j,n:integer;
begin
writeln('Исходная матрица');
randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(51)-10;
    write(a[i,j]:4);
   end;
  writeln;
 end;
for i:=1 to n do
 for j:=1 to n do
  begin
   if (a[i,j]>0) then a[i,j]:=a[1,1];
  end;
writeln('Результат');
for i:=1 to n do
 begin
  for j:=1 to n do
   {if (j<=i) }then write(a[i,j]:4);
  writeln;
 end;
readln
end.

[Stilet]

uses crt;
var
   a:array[1..10,1..10] of integer;
   i,j,n:integer;
begin
writeln('Исходная матрица');
randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(51)-10;
    write(a[i,j]:4);
    if (j<>1)and(a[i,j]>0) then a[i,j]:=a[i,1];
   end;
  writeln;
 end;

 for i:=1 to n do begin
  for j:=1 to n do    write(a[i,j]:4);
  writeln;
 end;
readln
end.

Всего то...