Дан двухмерный массив. Выяснить, имеется ли в нем положительный элемент, вывести…

Program Pr1; uses crt; var mas: array[1… 20,1… 20] of integer; i,j,v: integer; Beginclrscr; for i: =1 to 20 dofor j: =1 to 20 do readln (mas[i,j]); for i: =1 to 20 dofor j: =1 to 20 do if mas[i,j]>0 then begin writeln (i,'-ая строка ',j,'-ый столбец'); v: =mas[i,j]; end; for i: =1 to 20 dofor j: =1 to 20 do mas[i,j]: =v; end.