Для каждой строки напечатать номера столбцов, содержащих положительные элементы — Pascal(Паскаль)

uses crt;
 var m:array[1..5,1..5]of integer;
      i,j:integer;
 
  begin
    clrscr;
    for i:=1 to 5 do
     begin
       writeln('введите', i,' строку');
       for j:=1 to 5 do
          read(m[i,j]);
       writeln;
    end;
  for i:=1 to 5 do
    begin
     writeln('строка ',i,': ');
    for j:=1 to 10 do
       if m[i,j]>0 then write(' ',j,' ');
      writeln;
     readln;   
   end;
end.