Записи, файл, С/C++ Опции

[Merlin]

Условие :

Создать типизированный файл, запись которого имеет следующую структуру: номер УДК, фамилию и инициалы автора, название книги, год издания, количество экземпляров данной книги в библиотеке. Вывести на экран в алфавитном порядке название книг, количество экземпляров которых больше 3.
Создание и обработку файла оформить в виде подпрограмм.

Помогите переделать эту задачу в ( С/С++)

Вот код Паскаля :

uses crt;
const n=2;
type knigi=record
                 fio,name:string[20];
                 udk:real;
                 date,kol:integer;
           end;
var f:file of knigi;
    a:array [1..n] of knigi;
    s:string;
    i,vybor:integer;
{Создание}
procedure new;
Begin
     rewrite(f);
     for i:=1 to n do
         begin
              clrscr;
              write('Введите номер Удк');
              readln(a[i].udk);
              write('Введите Фио ');
              readln(a[i].fio);
              write('Введите название книги ');
              readln(a[i].name);
              write('Введите год издания ');
              readln(a[i].date);
              write('Введите кол-во экземпляров ');
              readln(a[i].kol);
              write(f,a[i]);
         end;
     close(f);
End;
{Чтение}
procedure open;
Begin
     reset(f);
     for i:=1 to n do read(f,a[i]);
     close(f);
End;
{Вывод на экран}
procedure print;
var j:integer;
    buf:knigi;
Begin
     clrscr;
     for i:=1 to n-1 do
         for j:=i+1 to n do if a[i].name>a[j].name then
             begin
                  buf:=a[i];
                  a[i]:=a[j];
                  a[j]:=buf;
             end;
     writeln('   УДК                ФИО         Название             Дата    Кол-во');
     for i:=1 to n do if a[i].kol > 3 then
     writeln(a[i].udk:5:0,'  ',a[i].fio:20,'  ',a[i].name:20,'  ',a[i].date:5,' ',a[i].kol);
End;
BEGIN
     clrscr;
     write('1 -Создать, 0 - Открыть ');
     readln(vybor);
     write(' Полный путь к файлу');
     readln(s);
     assign(f,s);
     if vybor=1 then new;
     if vybor=0 then open;
     print;
     readln;
END.

[volvo]

Что значит "не хочет запускаться"? Ты ничего и не увидишь - просто будет создан файл "data.txt"... Я тоже проверял на TC++ 3.0