Текстовые файлы в Паскале.

Uses crt;
var
  F,F2:Text;
  i,N,W:{integer;}longint;
  S,S2:string;
begin
  clrscr;
  writeln('      Fail F');
  assign(F,'100.txt');
  assign(F2,'100.txt');
  rewrite(F);
  rewrite(F2);
  randomize;
  for i:=1 to 100 do
   begin
    N:=random(100);
    write(F,N);
    write(N,' ');
   end;
  close(F);
  writeln;
  reset(F);
{2-ya chast programmy}
  writeln('      Fail F2');
  while not eof(F) do
   begin
  N:=(N+1) div 2;
  reset(F2);
  W:=0;
  for i:=1 to 10 do
   begin
    readln(F2,S);
    if length(S)>W then W:=length(S);
   end;
  reset(F);
  assign(F2,'100-2.txt');
  rewrite(F2);
  for i:=1 to 10 do
  if not eof(F2) then
  begin
  readln(F2,S2)
  end else
    begin
    S2:='';
    writeln(F2,S,'':W+5-length(S),S2);
   end;
  end;
  readln;
  close(F2);
end.

Uses crt;
function Zn(a:byte):string;{Для начала маленькая функция для выравнивания по левому краю}
begin
if a div 10>=1 then Zn:='   '{если число в первом столбике 2х значное, то три пробела}
else Zn:='    ';{если однозначное, четыре}
end;
var
  F,F2:Text;
  i,N,k1,k2:byte;
  a1,a2:array[1..100] of byte;{соберем числа из файла в 2 массива, до 50 и больше}
begin
  clrscr;
  writeln('      Fail F');
  assign(F,'100.doc');{для вывода с выравниваем лучше этот тип файлов, чем блокнот}
  assign(F2,'101.doc');{второй файл, другое имя}
  rewrite(F);
  rewrite(F2);
  randomize;
  for i:=1 to 100 do
   begin
    N:=random(100)+1;
    write(F,N,' ');{вводим через пробел, иначе потом не прочитать}
    write(N,' ');
   end;
  writeln;
  reset(F);{перед первым чтением можно файл не закрывать}
{2-ya chast programmy}
  writeln('      Fail F2');
  k1:=0;k2:=0;
  for i:=1 to 100 do {лучше так, при while not eof, в конце может добавить лишний ноль}
   begin
     read(F,N);{читаем число}
     if N<51 then{если меньше 51}
       begin
         k1:=k1+1;{считаем}
         a1[k1]:=N;{в первый массив}
       end
     else {если больше 50, то же во второй массив}
      begin
         k2:=k2+1;
         a2[k2]:=N;
       end;
  end;
  close(F);
  if k1=k2 then {если массивы одинаковые}
    begin
     for i:=1 to k1 do
       begin
        writeln(F2,a1[i],Zn(a1[i]),a2[i]);{выводим в файл и на экран первое число, пробелы(3 или 4), второе число}
        writeln(a1[i],Zn(a1[i]),a2[i]);
       end;
    end
  else if k1>k2 then {если первый массив больше}
    begin
     for i:=1 to k2 do{до длины второго массива}
       begin
        writeln(F2,a1[i],Zn(a1[i]),a2[i]);{выводим также}
        writeln(a1[i],Zn(a1[i]),a2[i]);
       end;
     for i:=k2+1 to k1 do {выводим остаток первого массива}
       begin
        writeln(F2,a1[i]);
        writeln(a1[i]);
       end;
    end
  else if k2>k1 then {если второй длиннее}
    begin
     for i:=1 to k1 do {до конца первого}
       begin
        writeln(F2,a1[i],Zn(a1[i]),a2[i]);{выводим 2 столбца}
        writeln(a1[i],Zn(a1[i]),a2[i]);
       end;
     for i:=k1+1 to k2 do{остаток второго выводим в один столбец}
       begin
        writeln(F2,'     ',a2[i]);{6 пробелов}
        writeln(F2,'     ',a2[i]);
       end;
   end;
  readln;
  close(F2);
end.

for i:=1 to 100 do
   begin
    N:=random(100)+1;
    write(F,N,' ');{вводим через пробел, иначе потом не прочитать}
    write(N,' ');
   end;