Помогите с программированием в Паскале.

Создать целочисленную матрицу 4 х5. Сформировать однородный массив, который содержит отрицательные элементы созданной матрицы.

Var ma:array[1 ... 4,1 ... 5] of integer;

ar:array[1 ... 20] of integer;

k, i, j:integer;

begin;

randomize;

writeln ('Matrix:') ;

for i:=1 to 4 do

begin;

writeln;

for j:=1 to 5 do

begin;

ma[i, j]:=random (-10,10) ;

if ma[i, j]<0 then

begin;

inc (k) ;

ar[k]:=ma[i, j];

end;

write (ma[i, j]:4) ;

end;

end;

writeln;

writeln ('Final array:') ;

for i:=1 to k do

write (ar[i]:4) ;

end.