Создать символьный файл, содержащий все знаки препинания, встретившиеся в текстовом файле в том же порядке

var
  fIn:Text;
  fOut: file of char;
  ch:char;
begin
  Assign(fIn,'input.txt');
  Assign(fOut,'output.dat');
  Reset(fIn);
  Rewrite(fOut);
  while not EOF(fIn) do
  begin
    read(fIn,ch);
    if ch in ['.',','] then {äîïèñàòü íóæíûå çíàêè}
      Write(fOut,ch)
  end;
  Close(fIn);
  Close(fOut)
end.

var
  f,g,r:Text;
  temp:string;
  page,s,i:integer;
begin
  WriteLn('Çàäàéòå s...');
  ReadLn(s);
  Assign(f,'part1.txt');
  Assign(g,'part2.txt');
  Assign(r,'result.txt');
  Reset(f);
  Reset(g);
  Rewrite(r);
  page:=1;
  repeat
    i:=1;
    if odd(page) then
      repeat
        ReadLn(f,temp);
        WriteLn(r,temp);
        Inc(i)
      until
        EOF(f) or (i>s)
    else
      repeat
        ReadLn(g,temp);
        WriteLn(r,temp);
        Inc(i)
      until
        EOF(g) or (i>s);
    Inc(page)
  until
    EOF(f) and EOF(g);
  Close(f);
  Close(g);
  Close(r)
end.

var
  f,g,r:Text;
  j:string;
  page,s,i:integer;
begin
  WriteLn('Задайте s...');
  ReadLn(s);
  Assign(f,'part1.txt');  {связываем файлы с внутренними переменными}
  Assign(g,'part2.txt');  {связываем файлы с внутренними переменными}
  Assign(r,'result.txt'); {связываем файлы с внутренними переменными}
  Reset(f);  {открываем фаил для чтения}
  Reset(g);  {открываем фаил для чтения}
  Rewrite(r); {открываем фаил для записи}
  page:=1; [COLOR=Red]{ДЛЯ ЧЕГО}[/COLOR]
  repeat {запускаем цикл}
    i:=1;  [COLOR=Red]{ДЛЯ ЧЕГО}[/COLOR]
    if odd(page) then  {проверяем на нечетность}
      repeat
        ReadLn(f,j); {считываем символы до конца строки}
        WriteLn(r,j);{записываем в конечный файл}
        Inc(i)
      until
        EOF(f) or (i>s)   {Пока не закончится f }
    else
      repeat
        ReadLn(g,j);
        WriteLn(r,j);
        Inc(i)
      until
        EOF(g) or (i>s);
    Inc(page)
  until
    EOF(f) and EOF(g);
  Close(f); {закрываем файл}
  Close(g); {закрываем файл}
  Close(r)  {закрываем файл}
end.

var
  f,g,r:Text;
  j:string;
  page,s,i:integer;
begin
  WriteLn('Çàäàéòå s...');
  ReadLn(s);{ââîä êîëè÷åñòâà ñòðîê â îäíîé ñòðàíèöå}
  Assign(f,'part1.txt');  {ñâÿçûâàåì ôàéëû ñ âíóòðåííèìè ïåðåìåííûìè}
  Assign(g,'part2.txt');  {ñâÿçûâàåì ôàéëû ñ âíóòðåííèìè ïåðåìåííûìè}
  Assign(r,'result.txt'); {ñâÿçûâàåì ôàéëû ñ âíóòðåííèìè ïåðåìåííûìè}
  Reset(f);  {îòêðûâàåì ôàèë äëÿ ÷òåíèÿ}
  Reset(g);  {îòêðûâàåì ôàèë äëÿ ÷òåíèÿ}
  Rewrite(r); {îòêðûâàåì ôàèë äëÿ çàïèñè}
  page:=1; {ñ÷åò÷èê ñòðàíèö, ïî êîòîðîìó ìû è îïðåäåëÿåì èç êàêîãî ôàéëà ÷èòàòü î÷åðåäíóþ ñòðàíèöó}
  repeat {çàïóñêàåì öèêë}
    i:=1;  {äëÿ òîãî ÷òîáû íå ïðî÷èòàòü áîëüøå S ñòðîê èç îäíîé ñòðàíèöû}
    if odd(page) then  {ïðîâåðÿåì íà íå÷åòíîñòü}
      repeat
        ReadLn(f,j); {ñ÷èòûâàåì ñòðîêó èç ôàéëà}
        WriteLn(r,j);{çàïèñûâàåì â êîíå÷íûé ôàéë}
        Inc(i){óâåëè÷èâàåì ñ÷åò÷èê ïðî÷èòàííûõ ñòðîê}
      until
        EOF(f) or (i>s)   {Ïîêà íå çàêîí÷èòñÿ f èëè i ñòàíåò áîëüøå s, ò.å. ìû ïðî÷òåì 10 ñòðîê}
    else
      repeat
        ReadLn(g,j);{ñ÷èòûâàåì ñòðîêó èç ôàéëà}
        WriteLn(r,j);{çàïèñûâàåì â êîíå÷íûé ôàéë}
        Inc(i){óâåëè÷èâàåì ñ÷åò÷èê ïðî÷èòàííûõ ñòðîê}
      until
        EOF(g) or (i>s);  {Ïîêà íå çàêîí÷èòñÿ f èëè i ñòàíåò áîëüøå s, ò.å. ìû ïðî÷òåì 10 ñòðîê}
    Inc(page){óâåëè÷èâàåì ñ÷åò÷èê ïðî÷èòàííûõ ñòðàíèö}
  until
    EOF(f) and EOF(g);
  Close(f); {çàêðûâàåì ôàéë}
  Close(g); {çàêðûâàåì ôàéë}
  Close(r)  {çàêðûâàåì ôàéë}
end.