задачи на массив и процедуры и функции.

[Alexan92]

Помогите решить задачи:

Из заданной квадратной матрицы V сформировать матрицу W следующим образом: удалить из матрицы V k-ую строку и k-ый столбец. Значение k задано. Исходную и полученную матрицу вывести в общепринятом виде.

Вторую преподаватель задал сделать с помощью процедур и функций.

Дан интервал (а,b) и два произвольных массива V, W размера k, n соответственно. Найти количество положительных элементов массива V, попадающих в интервал (а,b), и количество положительных элементов массива W, попадающих в интервал (а,b). Исходные данные взять самостоятельно.

Учусь заочно, поэтому если можно расписать решение поподробнее.

[kuy]

Первая как-то так:

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;

const k=4;
      V: array[1..6,1..6] of integer =
      ((5,8,7,1,9,0),
       (7,3,8,2,5,3),
       (1,0,2,7,4,9),
       (8,4,3,7,1,3),
       (5,0,1,4,8,2),
       (5,3,2,9,1,7));
var W: array[1..99,1..99] of integer;
    i,j,q,e:integer;
begin
writeln('mas V:');
for i:=1 to 6 do
 begin
  for j:=1 to 6 do write(v[i,j]:2);
  writeln;
 end;

q:=0; e:=0;
for i:=1 to 6 do
 begin
 if i<>k then
  begin
   inc(q);
   e:=0;
   for j:=1 to 6 do
    begin
     if j<>k then
      begin
       inc(e);
       W[q,e]:=V[i,j];
      end;
    end;
  end;
 end;

writeln('mas W:');
for i:=1 to q do
 begin
  for j:=1 to e do write(w[i,j]:2);
  writeln;
 end;
readln;
end.

[Alexan92]

А как сделать чтоб массив вводился с клавиатуры?

[Mad_Cat]

for i:=1 to 6 do
  for j:=1 to 6 do readln(v[i,j]);

[Alexan92]

Спасибо по первой..По второй помогите пожалуйста!!!

[Alexan92]

Ещё раз прошу помогите с решением данной задачи, хоть зацепку с чего начать её делать.
Какие процедуры или функции использовать?

Дан интервал (а,b) и два произвольных массива V, W размера k, n соответственно. Найти количество положительных элементов массива V, попадающих в интервал (а,b), и количество положительных элементов массива W, попадающих в интервал (а,b). Исходные данные взять самостоятельно.

[Hacker19_90]

count_V := 0;
count_W := 0;
for i := 1 to k do
    if (V[i] > 0) and (V[i] in [a..b] ) then Inc (count_V)
for i := 1 to n do
    if (W[i] > 0) and (W[i] in [a..b] ) then Inc(count_W);