Pascal (Работа с файлами) как исправить ошибку

[Natsu]

проблема начал подстраивать программу

вот задание если что:
В файл F записанны целые числа. Написать программу которая в файл G записывает четные числа а в файл H - нечетные.

var f,g,h:text;
buf,n,I:integer;
s:string;
begin
assign(f, 'f.dat');
rewrite(f);
writeln('введите кол-во записей');
readln(n);
for I:=1 to n do
Begin
readln(s);
writeln(f,s);
end;
close(f);

assign(g, 'g.dat');
assign(h, 'h.dat');
reset(f);
rewrite(g);
rewrite(h);
while not eof(f) do
begin
read(f,buf);

if buf mod 2=0 then write(g,buf) else write(h,buf);
end;
Writeln;
writeln('четные');
Reset(g); 
While not eof(g) do 
Begin
Readln(g,s);
Writeln(s); 
End;
Writeln;
writeln('нечетные');
Reset(h); 
While not eof(h) do 
Begin
Readln(h,s);
Writeln(s); 
End;
close(f);
close(g);
close(h);


end.

тут возникает одна проблемма когда выводится четные цифры к ним еше левый ноль откудато берется и еше надо сделать както так чтобы ненадо было задавать размерность скоко ввести чисел а чисто вводить и когда набереш цифру 9999 автоматически прекратить запаолнение и показать четные и нечетные числа

больше всего меня заботит почему тот ноль автоматом к четным заносится я хз вводиш 5 4 5 2 5 3 3 3

Получится

четные
4
2
0
нечетные
5
5
5
3
3
3

и почму я хз

Всем спасибо за помощь

организовал проверку на четность нечетность так
if Not Odd(buf) then writeln(g,buf) else writeln(h,buf);
и нечего не изменилось откуда етот чертов ноль(

если ставлю переход через goto то вообше какаето несуразница непонимаю че делать(

[Alt]

Для начала нормально оформить код...

[CodeExpert]

goto == атавизм

[Natsu]

ПАРНИ Я СДЕЛАЛ ЕТО УЖЕ СПАСИБО)))

подскажите почему в четных ноль берется в ответе сам по себе я замучался

Вот новый код

var f,g,h:text;
buf,n,I:integer;
s:string;
label m;
         begin
              assign(f, 'f.dat');
              rewrite(f);
              readln(n);
              for I:=1 to 456 do
         Begin
              readln(s);
              if s='9999' then goto m;
              writeln(f,s);
         end;
             close(f);
              M:
             assign(g, 'g.dat');
             assign(h, 'h.dat');
             reset(f);
             rewrite(g);
             rewrite(h);
             while not eof(f) do

                   begin
                        read(f,buf);
                        if buf mod 2=0 then writeln(g,buf) else writeln(h,buf);
                   end;
                       Writeln;
                       writeln('÷åòíûå');
                       Reset(g);
                                While not eof(g) do
                       Begin
                            Readln(g,s);
                            Writeln(s);
                       End;
                           Writeln;
                           writeln('íå÷åòíûå');
                           Reset(h);
                                    While not eof(h) do
                       Begin
                                    Readln(h,s);
                                    Writeln(s);
                       End;
close(f);
close(g);
close(h);

end.

смотрите пишу например
5
3
4
8

показывает
четные:
4
8
0
нечетные:
5
3

откуда етот чертов ноль?

может можно както сделать так чтобы ноль просто некогда небыл виден?

[CodeExpert]

это не чертов 0, это последняя строка всегда пустая, то есть он делит 0 на ... просто в цикле где то поставь: ограничитель-1 и все...

[Natsu]

как ето сделать скажи почетче плз(((( а то яж пень(

[Natsu]

напиши пдз код етого ограничителя и я пойду станцую над готовой прогой плз плз плз

[Indian]

Чтобы не задавать размерность:

  while s<>'9999' do
        Begin
            readln(s);
            writeln(f,s);
        End;

Лишний 0:

While Not eof(f) Do
        Begin
            readln(f,buf);
            If buf Mod 2=0 Then write(g,buf)
            Else write(h,buf);
        End;

[Natsu]

спасибо тебе огромное я люблю тебя))

тема закрыта всем спасибо что помогли!!!

[CodeExpert]

спасибо тебе огромное я люблю тебя))

- ты вроде как бы парень, веди себя нормально.........