Преобразование массива, создание массива из элементов строк матрицы.

uses crt;
var
   arrIn:array[1..18] of integer;
   arrOut:array[1..18] of integer;
   i,p,m:integer;
begin
     clrscr;
 
     for i:= 1 to 18 do
     begin
          arrIn[i] := i;
          write(arrIn[i]:3);
     end;
     writeln;
 
     p := 0;
     m := 8;
     for i := 1 to 18 do
     begin
          if ((i mod 2) <> 0) then
          begin
               arrOut[i] := arrIn[i - p];
               p := p + 1;
          end
          else
          begin
               arrOut[i] := arrIn[i + m];
               m := m - 1;
          end;
          write(arrOut[i]:3);
     end;
end.

read(arrIn[i]);

uses crt;
const n=7;
var a:array[1..n,1..n] of integer;
    b:array[1..n] of integer;
    i,j,k:byte;
begin
clrscr;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(10)-7;
     {можете поменять диапазон или сделать ввод с клавы}
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
{находим первое положительное в каждой строке}
for i:=1 to n do
 begin
  k:=0;
  for j:=1 to n do
  if a[i,j]>0 then
   begin
    k:=1;
    b[i]:=a[i,j];
    break;
   end;
  if k=0 then b[i]:=-1;
 end;
writeln('Массив первых положительных в строках:');
for i:=1 to n do
write(b[i],' ');
readln
end.