Delphi, помогите исправить задачу

[cave]

Задача такова: Сформировать два одномерных массива из четных и нечетных элементов матрицы (RND)

Чтобы выводилось в ввиде:
Исходная матрица
1 2 3
4 5 6
7 8 9

Четный массив
2 4 6 8
Нечетный массив
1 3 5 7 9

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var

i,j,k,l,n,m,c,d: integer;
a:array [1..10,1..10] of real;
chet:array[1..10] of real;
nechet:array[1..10] of real;
begin

  randomize;
  Writeln('BBedite razmernost');
  readln(n,m);
  writeln('BBedite predeli');
  readln(d,c);
  for i:=1 to n do
  begin
  for j:=1 to m do
  a[i,j]:=(c-d)*random+d;
  end;
  for i:=1 to n do
  begin
  for j:=1 to m do
  write(a[i,j]:8:0);
  writeln;
end;
k:=1;
l:=1;
for i:=1 to n do  begin
for j:=1 to n do
if (frac(a[i,j]/2)=0) then begin
chet[k]:=a[i,j];
k:=k+1;
end
else begin
nechet[l]:=a[i,j];
l:=l+1;
end;
writeln;
writeln('chetnyy massiv:');
for i:=1 to k-1 do
write(chet[i]:8:0);
writeln;
writeln('nechetnyy massiv:');
for i:=1 to l-1 do
write(nechet[i]:8:0);
writeln;
readln;
 end;
end.

заранее спасибо

[VadEr]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  fl1,fl2,fl3, i,j,n,m,c,d: integer;
  a:array of array of real;
  chet:array of real;
  nechet:array of real;
begin
  fl3:=0; fl1:=0; fl2:=0; // счетчики
  randomize;
  Writeln('BBedite razmernost');
  readln(n,m);
  SetLength(a, n,m);
  writeln('BBedite predeli');
  readln(d,c);
  for i:=0 to n-1 do
  begin
    for j:=0 to m-1 do
    begin
      a[i,j]:=(c-d)*random+d;
      write(a[i,j]:8:5);
      Inc(fl3);
      if fl3 mod 2 = 0 then
        begin
          Inc(fl1);
          SetLength(chet, fl1);
          chet[fl1-1] := a[i,j];
        end
      else
        begin
          Inc(fl2);
          SetLength(nechet, fl2);
          nechet[fl2-1] := a[i,j];
        end;
    end;
    writeln;
  end;

writeln;
writeln('chetnyy massiv:');
for i:=0 to fl1-1 do
    write(chet[i]:8:5);
writeln;
writeln('nechetnyy massiv:');
for i:=0 to fl2-1 do
    write(nechet[i]:8:5);
readln;
end.

[cave]

будут еще варианты? чтобы было похоже на мой вариант, а то не примут такое (

[Charmer]

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
i,j,k,l,n,m,c,d,h: integer;
a:array [1..10,1..10] of real;
s:array[1..20]of real;
chet:array[1..10] of real;
nechet:array[1..10] of real;
begin
randomize;
Writeln('BBedite razmernost');
readln(n,m);
writeln('BBedite predeli');
readln(d,c);
for i:=1 to n do
begin
for j:=1 to m do
a[i,j]:=(c-d)*random+d;
end;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:8:0);
writeln;
end;
h:=1;
for i:=1 to n do
begin
for j:=1 to m do
begin
s[h]:=a[i,j];
h:=h+1;
end;
end;
h:=h-1;
l:=1;
k:=1;
for i:=1 to h do
begin
if (i mod 2=0) then
begin
chet[k]:=s[i];
k:=k+1;
end
else
begin
nechet[l]:=s[i];
l:=l+1;
end;
end;
writeln;
writeln('chetnyy massiv:');
for i:=1 to k-1 do
write(chet[i]:8:0);
writeln;
writeln('nechetnyy massiv:');
for i:=1 to l-1 do
write(nechet[i]:8:0);
writeln;
readln;
end.