Из двумерного массива сформировать одномерный

uses crt;
var
n,i,j:integer;
a:array [1..25,1..25] of integer;
b:array [1..25] of integer;
BEGIN
write('Ââåäèòå ðàçìåðíîñòü-->');
readln(n);
for i:=1 to n do
 begin
     for j:=1 to n do
      begin
          a[i,j]:=random(50);
          write(a[i,j]:3);
      end;
     writeln;
     b[i]:=0;
 end;
for i:=1 to n do
 begin
     for j:=1 to n do
      if (a[i,j] mod 7=0) and (a[i,j]<>0) then
       begin
          b[i]:=a[i,j];
          break;
       end;
 end;
writeln('Ïîëó÷åííûé ìàññèâ:');
for i:=1 to n do write(b[i]:3);
end.

uses crt;
var
n,i,j:integer;
t:boolean;
a:array [1..25,1..25] of integer;
b:array [1..25] of integer;
BEGIN
write('Ââåäèòå ðàçìåðíîñòü-->');
readln(n);
for i:=1 to n do
 begin
     t:=true;
     for j:=1 to n do
      begin
          a[i,j]:=random(50);
          write(a[i,j]:3);
          if (t=true) then
           begin
               b[i]:=0;
               if (a[i,j]<>0) and (a[i,j] mod 7=0) then
                begin
                    b[i]:=a[i,j];
                    t:=false;
                end;
           end;
      end;
     writeln;
 end;
writeln('Ïîëó÷åííûé ìàññèâ:');
for i:=1 to n do write(b[i]:3);
end.