Помогите исправить задачку, с подпрограммой Опции

[Дёнис]

Вот собственно задачка:
Использовать подпрограммы (ввода, вывода, обрабатывающей части). Дан массив целых чисел A[M,N], где M,N<=10. Вставить последнюю строку после строки, в которой находится заданное число K.

И я уже что-то написал, только не понимаю кое-чего, скопируйте пожалуйста и поправьте что неправильно.

program lab4_2;
const
k=10;
var
A:array [1..10, 1..10] of integer;
M,N:integer;
procedure inputArray;
var
i,j:integer;
            begin
            write ('?M=');
            readln (M);
            if M>10 then
               begin
               writeln ('M must be <=10');
               N:=0; M:=0;
               exit;
               end;

               write ('?N=');
               readln (N);
               if N>10 then
                  begin
                  writeln ('N must be <=10');
                  N:=0; M:=10;
                  exit;
                  end;

                  for i:=1 to M do
                      begin
                      write ('?A[',i,',',',j]=');
                      readln (A[i,j]);
                      end;

            end;

procedure printArray;
var
i,j:integer;
begin
writeln ('A=');
if (N>0) and (M>0) then
   begin
   for i:=1 to M do
       begin
       write (A[i,j]);
       end;
       writeln;
   end;
end;
procedure vstav;
var
i,j,v,w,t:integer;
begin
for i:=v downto t do
for j:=1 to w do
A[i+1,j]:=A[i,j];
writeln (A[i,j]);
end;
    begin
    inputArray;
    printArray;
    vstav;
    printArray;
    end.