Задача о двумерном массиве Опции

[-rov4-]

Привет всем.
Помогите, пожалуйста, решить задачу (сегодня сдавать): Дан двумерный массив, найти все элементы, большие 6-ти; создать одномерный массив, заполняя его с конца (условие переписано полностью).
Заранее спасибо!

[-rov4-]

Ну вот начало у меня такое:

Код

uses  crt;
const n=4;
     par=(n*4);
type matriz=array[1..n,1..m] of integer;
var i,j,a:integer;
   mas:matriz;
   im:array[1..par] of integer;
procedure vvod(var vmas:matriz);
        begin
         clrscr;
          writeln('‚Вводим элементы в массив, размерность [',n,',',n,'],');
          for i:=1 to n do
           for j:=1 to m do
            begin
             write('‚Введите элемент [',i,',',j,']=,');
             readln(vmas[i,j]);
            end;
        end;
procedure print(vmas:matriz);
        begin
         writeln('‚Ваш массив имеет вид.,');
            for i:=1 to n do
             begin
              for j:=1 to n do
              begin
              write(' ',vmas[i,j],' ');
              end;
              writeln;
             end;
        end;
begin
for i:=1 to n do
for j:=1 to m do
if [i,j]>6 then writeln (a[i,j],'');
readln;
end

Что делать дальше? И какие ошибки тут?