Вывести в файл страницу избирательного участка

{Записать программу в Паскале таблицу избирательного участка.
Структура:номер избирателя,район,общее количество, количество принявших
участие в голосовании. Эта программа должна выводиться в текстовом
файле и нужно сделать сортировку методом выбора.      }
type
  izb=record
    nomer:dword;
    raion:string[128];
    obkol,golkol:dword;
  end;
var
  x:array[1..100] of izb;
  nmin,j,n,i:integer;
  min:izb;
begin
  write('Введите количество избирательных участков: ');  readln(n);
  for i:=1 to n do
    begin
      write('Введите номер избирательного участка: ');  readln(x[i].nomer);
      write('Введите район: ');  readln(x[i].raion);
      write('Введите общее количество: ');  readln(x[i].obkol);
      write('Введите количество принявших участие в голосовании: ');  readln(x[i].golkol);
    end;
  for j:=1 to n-1 do
    begin
      nmin:=j;
      for i:=j+1 to n do
        if x[i].golkol<x[nmin].golkol then
          nmin:=i;
        min:=x[j];
        x[j]:=x[nmin];
        x[nmin]:=min;
    end;
  for i:=1 to n do
    writeln(x[i].nomer:4,x[i].raion:24,x[i].obkol:8,x[i].golkol:8); 
  readln;
end.