Дан массив А(n x n)

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
Const
 n=3;
 
Var
 a:array [1..n,1..n] of integer;
 b:array [1..n*n] of integer;
 i,j,k:integer;
 
begin
  // Ввод массива
  For i:=1 to n do
   For j:=1 to n do
    Read(a[i,j]);
  Readln;
 
  // Проверка
  k:=1;
  For i:=1 to n do
   For j:=1 to n do
    If a[i,j]>0
     Then
      Begin
       b[k]:=a[i,j]; // заполнение одномерного массива
       Inc(k);
      End;
 
  // Вывод одномерного массива
  For i:=1 to k-1 do
   Write(b[i]:3);
  Readln;
end.

Program Mas;
Uses crt;
Var A:array[1..50,1..50] of integer; B:array[1..50] of integer; kol:array[1..50] of integer;
i,j,k,n:integer;
 
Begin
ClrScr; Randomize;
Write('n='); Readln(n);
For i:=1 to n do
 Begin
  For j:=1 to n do
   Begin
    A[i,j]:=random(51)-25;
    If A[i,j]>0 then 
     Begin
      kol[i]:=kol[i]+1; k:=k+1;
      B[k]:=A[i,j];
     End;
    Write(A[i,j]:4);
   End;
  Writeln;
 End;
 
For i:=1 to n do Writeln('kol pol v ',i,' stroke:',kol[i]);
For i:=1 to k do Writeln(B[i]);
Readln;
End.