Процедуры и функции., Помогите с решением задач на процедуры и функции. Опции

[ManyaK]

Люди помогите исправить программу!!!
Вот задание:
В численных матрицах X(3x4) и Y(4х4) найти количество столбцов начинающихся на заданное число.
А вот та программа которая у меня работает не правильно...

Program pr1_2;
type mas1=array[1..3,1..4]of integer;
     mas2=array[1..4,1..4]of integer;
Var i,j,k:integer;
    A:mas1;
    B:mas2;
 Procedure Poisk(m1:mas1;m2:mas2);
   Var k,I,j,d,f:integer;
 Begin
       for i:=1 to 3 do
       If m1[1,i]=1 then k:=k+1;
       for j:=1 to 4 do
       If m1[1,j]=1 then d:=d+1;
       writeln('k=',k,'d=',d);
    readln;
 end;
Begin
  writeln('MaccuB 1');
    randomize;
     for i:=1 to 3 do
      begin
       For j:=1 to 4 do
        begin
         A[i,j]:=random(20);
         write(a[i,j]:6);
        end;
       writeln;
      end;
  writeln('MACCuB 2');
      randomize;
     for i:=1 to 4 do
      begin
       For j:=1 to 4 do
        begin
         B[i,j]:=random(20);
         write(B[i,j]:6);
        end;
       writeln;
      end;
poisk(a,b);
readln;
readln;
end.

Сообщение отредактировано: volvo - 6.11.2006 17:43