Массивы на Паскале, пожалуйста.....

1.

const

 stroki = 10000;

 stolbci = 10000;

type

 matrix = array[1..stroki, 1..stolbci]of integer;

procedure vvod(var a: matrix; m, n: integer);

var

 i, i1: integer;

begin

 for i := 1 to m do  

 begin

   write('   ');

   for i1 := 1 to n do  

     read(a[i, i1]);

 end;

end;

var

 a: matrix;

 m, n, i, j, kol: integer;

begin

 kol := 0;

 readln(n, m);

 vvod(a, n, m);

 for i := 1 to n do

   for j := 1 to m do if a[i, j] = 7 then kol += 1;

 writeln(kol);

end.

2.

var

 a, b, c: array[0..14] of integer;

 i, max, min, sum: integer;

begin

 sum := 0;

 min := 100;

 max := 0;

 for i := 0 to 14 do  

 begin

   randomize;

   a[i] := 10 + random(1 + 30 - 10);

   b[i] := 10 + random(1 + 30 - 10);

   c[i] := a[i] + b[i];

   if c[i] > max then max := c[i]

   else if c[i] < min then min := c[i];

   sum += c[i];

 end;

 writeln(max);

 writeln(min);

 writeln(round(sum / 15));

end.