подпрограми

[basav1k]

Помогите пожалусто решить вот ету задачку
Задание 2. Составить программу обработки двумерного массива, оформив введение, выведение и обработку элементов массива, в виде подпрограмм.

Дан двумерный массив целых чисел. В каждой строке найти количество элементов ровных а.

[ROMA2PVT]

uses
  crt;
type
  mas=array [1..100,1..100] of integer;
var
  a:mas;
  i,j:integer;
{процедура ввода матрицы}

procedure VVod(var a:mas);
var
  i,j,n,m:integer;
begin
randomize;
  write('Количество строк: ');
  readln(n);
  write('Количество столбцов:');
  readln(m);
  for i:=1 to n do
    for j:=1 to m do
    begin
      a[i,j]:=random(10)-5;
    end;
    end;
    {процедура вывода матрицы}
    
    procedure ViVod(var a:mas);
    var
       i,j,n,m:integer;
    begin
    writeln('Исходный массив: ');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:2,' ');
    writeln
  end;
end;

Procedure KOlich(Var a:mas);
var
 i,j,n,m,kol,l:integer;
begin
write('Введите L: ');
readln(l);
for i:=1 to n do
 begin
kol:=0;
for j:=1 to m do
if l=a[i,j] then
inc(kol);
writeln('Количество элментов равных ',L,' ',i,'-й строки:=',kol);
end;
end;

{основная программа}
begin
  Vvod(a);
  Vivod(a);
  KOlich(a);
end.

Когда сами делать научитесь?А?

[basav1k]

спасибо ROMA2PVT