в двумерном массиве элементы второй строки заменить на ноль

USES CRT;VAR A:array[1..5,1..5] of integer;            i,j,min,s:integer;BEGINCLRSCR;Randomize;  for i:=1 to 5 do       for j:=1 to 5 do            A[i,j]:=random(50);  for i:=1 to 5 do         begin            for j:=1 to 5 do                 Write(A[i,j]:2, '   ');            Writeln;        end;   for j:=1 to 5 do          A[2,j]:=0;    Writeln;        for i:=1 to 5 do          begin              for j:=1 to 5 do                   Write(A[i,j]:2, '   ');              Writeln;          end;READLN;END.