оформить в виде процедуры.

[Riza]

задание:
а)в матрице заменить чтолбцы где находиться нулевой элемент, нулями.
б)оформить программу в виде процедуры.
program LABA_7;
uses crt;
var
a:array[1..10, 1..10] of integer;
i,j,g,k,z: integer;
begin
clrscr;
write('vvedite colvo stroc -');
readln(k);
write('vvedite colvo stolbcov -');
readln(g);
writeln('Vvedite el-ti matrici i nagmite ENTER: ');
for i:=1 to k do {stroka}
for j:=1 to g do {stolbec}
read(a[i,j]);

for i:=1 to k do
for j:=1 to g do
if a[i,j]=0 then
for z:=1 to k do
a[z,j]:=0;

writeln;
for i:=1 to k do
begin
for j:=1 to g do write(a[i,j],' ');
writeln;
end;
readkey;
end.

(программу написала, но вот переоформить корявость рук не позволяет)

[RUSt88]

const 
  N = 10;
type 
TMa =array[1..N, 1..N] of integer;

var
  b: TMa;
procedure FillMatrix(var a: TMa);
var
  i, j: integer;
begin
for i:=1 to k do
for j:=1 to g do
if a[i,j]=0 then
for z:=1 to k do
a[z,j]:=0;
end;

примерно так )