PASCAL Работа с файлами

[Natsu]

Лубышев вставь плз ето в мой текст программы чтобы оно работало я уже 200 методов перпепробовал и ваше ненаю че делать я понимаю чтьо и тебя я уже зае*ал но блин меня убьют если не сделаю плз еси моно(

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

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

ДА Я ЭТО СДЕЛАЛ СМОТРИ

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.

теперь осталось только чертов ноль убрать)

[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]

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