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

[-rov4-]

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

[FreeMan]

1. Откуда такая уверенность???? небось пыталась в компилятор запихать?
2. Пишу прогу(может с ошибками, которые добрые люди исправят)

Код

program D_Array;
uses  crt;
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(var 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);    {выводим на экран­}
writeln('Элементы, большие 6');
for i:=1 to n do
for j:=1 to n do
if mas[i,j]>6 then write(mas[i,j],'   ');
writeln;
readln;

for i:=par downto 1 do begin
write('Enter im[',i,']: ');
readln(im[i]);
end;

readln;
end.