файлы в delphi

[LastBreath]

Задача:
Написать программу, которая в заданном числовом файле группирует все четные числа в начале файла, а все нечетные в конце.

Вот так я написала:

program Project3;

{$APPTYPE CONSOLE}

uses
SysUtils;

label ending; //метка на конец

const c=201;
d=100;

function verchnregistr(a:char):char; //функция символ в верхний регистр
var s:string;
begin
s:='';
s:=s+a;
s:=ansiUppercase(s);
verchnregistr:=s[1];
end;

var f,f1:file of integer;
letter:char;
count,n,x,i:integer;
s:array of integer;

begin
write('Write down the number of elements in file:');
readln(n);
if n=0 then writeln('File is empty') else
begin
assign(f,'number.txt');
assign(f1,'help1.txt'); //задаем количество элементов в файле
rewrite(f);
count:=0; //записываем элементы в файле
randomize;
for i:=1 to n do begin
x:=random(c)-d;
write(f,x);
write(x,' ')
end; //формируем
close(f); //закрываем файл
writeln;
writeln('Are you sure, that you want to rewrite file(number.txt)? (Y|N)');
readln(letter);
reset(f);
rewrite(f1); // открываем для чтения
letter:=verchnregistr(letter);
if letter='N' then goto ending
else
if letter='Y' then //задаем варианты
begin write('New row:'); //начинаем вывод четных чисел
while not eof(f) do
begin
read(f,x);
if not odd(x) then
begin write(f1,x);
write(x,' ')
end
else begin inc(count);
setlength(s,count);
s[count-1]:=x
end
end; //если нечетное то запоминаем
writeln;
for i:=0 to count-1 do
begin write(f,s[i]);
write(s[i],' ')
end //вывод четных
end;
end;
ending:

readln
{ TODO -oUser -cConsole Main : Insert code here }
end.

Результат есть, но не тот...числа не группируются как надо...Посмотрите пожалуйста и подскажите, что не так???

[LastBreath]

О____о или все верно..тогда прощу прощения)