Двумерный массив на паскале

[Metal593]

Помогите с задачей пожалуйста. Из элементов матрицы a(5,5), удовлетворяющих условию −5≤a(i, j)≤5, построить вектор b(25) , заменив недостающие элементы нулями. Очень срочно нужна программа эта. Желательно за плюсик в репутацию.

[RUSt88]

могу реализовать за небольшое вознаграждение

[RUSt88]

писал в блокноте

program P;
const
	N = 5;
	M = 25;
var
	a: array[0..N - 1] of array[0..N - 1] of integer;
	b: array[0..M - 1] of integer;
	i, j, k: integer;
	
begin
	Randomize;
	k := 0;
	for i := 0 to N - 1 do begin
		for j := 0 to N - 1 do begin
			a[i, j] := -10 + random(20);
			if ( (a[i, j] >= -N) and (a[i, j] <= N) ) then begin
				b[k] := a[i, j];
				inc(k);
			end;
		end;
	end;
	for i := k to M - 1 do begin
		b[i] := 0;
	end;
end.