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

[-rov4-]

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

[-rov4-]

Итак, вот что у меня получилось, но я уверена, что это не правильно. Что ещё надо добавить или исправить?

Код

program D_Array;
uses  tpcrt;
const n=4;
     par=(n*4);
type matriz=array[1..n,1..n] 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 n 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
vvod(mas);   {заполняем}
print(mas);    {выводим на экран­}
i:=1 to n do
for j:=1 to n do
if [i,j]>6 then
 begin
writeln('Элементы, большие 6');
readln;
end;

var im:array[1..par] of integer;
begin
for i=par downto 1 do begin
a[i]:=random(1000);
write('Enter mass[',i,']:');
readln(mass[i]);
end.

Заранее спасибо.