[Pascal] Задача на двумерные массивы

[MaximV]

Из двух массивов х[15] и у[15] получить массив z следующим образом:если x[i]+y[i]>=12 то x[i],y[i] записать в массив, если эта сумма меньше 12 пропустить их. Вывести массив x,y,z.

Решите пожалуйста простым способом(ШКОЛЬНЫМ).

[VIK_aka_TOR]

var x,y,z : array [1..15] of integer;
i,index : integer;
begin
// ввод массивов x и z
index := 1;
for i:=1 to 15 do
   if (x[i] + y[i]) >= 12 then
      begin
        z[index] := x[i] + y[i]; // записываем в z то что нужно... 
        index := index + 1; // inc(index); 
      end;
// выводим массив(ы)
end;

не совсем понял что записывать в z... видимо массив двумерный должен быть... но принцип описал.. а что и куда.. разберетесь сами...