Задача - на двумерный массив

[ValdisZ]

Дан двумерный массив 7x7. Найти среднее арифметическое каждой строки и выяснить сколько элементов строки меньше среднего арифметического.

[New man]

program mar;
var mas:array [1..7,1..7]of rea;
 i,j:integer;
  vf:array[1..7]of real;
 z:real;
function GiveMen(s:integer;zn:real):integer;
var k:integer;
begin
  result:=0;
  for k:=1 to 7 do
    if mas[s,k]<zn then inc(result)
end;
begin
  VVodMas;  // эту процедуру пишите сами
  for i:= 1 to 7 do
  begin
z:=0;
   for j:=1 to 7 do
         z:=z+mas[i,j];
      vf[i]:=z /7;
   end;
  for i:=1 to 7 do
    writeln(vf[i]:10:4, GiveMen(i,vf[i]):10:4);
readln;
end.

[ValdisZ]

Да блин у нас паскаль ABC я даже не знаю что такое VVodMas

[New man]

   for i:=1 to 7 do
  begin
    for j:=1 to 7 do
      read(mas[i,j]);
    readln;
  end;

Замени VVodMas этим кодом