Записи, файл, С/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.

[Merlin]

#include <stdio.h>
#include <conio.h>
#include<string.h>
#include<iostream.h>
#define SIZE 100

int col;
FILE * file;

struct One{
  char  Name[SIZE];
  char  fio[SIZE];
  int  god,udk,kol;

};
void *readln(char *s, int size)
{
int c;
while ((c = getchar()) != '\n' && size-- > 0)
*s++ = c;
*s = 0;
}

One Knigi[50];
int i,j;
One buf[50];
void Out()
 
{ for(int i=0;i<col-1;i++)
	for(j=i+1;j<col;j++)
   if( Knigi[i].Name>Knigi[j].Name)
	 {		   buf=Knigi[i];
				 Knigi[i]=Knigi[j];
				 Knigi[j]=buf;
	 }
if(Knigi[i].kol>3)
 {
  printf(file, "%s\n", Knigi[i].Name);
  printf(file, "%s\n", Knigi[i].fio);
  printf(file, "%d\n", Knigi[i].udk);
  printf(file, "%d\n", Knigi[i].kol);
  printf(file, "%d\n", Knigi[i].god);
  }
}

void main()
{
  file = fopen("Out.txt", "w");

  clrscr();
  printf("\n\n  Vvedite kolichestvo sotrudnikov v faile ");
  scanf("%u", &col);
  for(int i=0;i<col;i++)
  {
	 printf("\n Name  ");
	 readln( Knigi[i].Name,SIZE);
	 printf("\n Fio  ");
	 readln( Knigi[i].fio, SIZE);
	 printf("\n Udk");
	 scanf("%i",&Knigi[i].udk);
	 printf("\n Kolichestvo");
	 scanf("%i",&Knigi[i].kol);
	 printf("\n God");
	 scanf("%i",&Knigi[i].god);
	 Out();

  }
  getche();
  fclose(file);
}

Volvo помоги пожалуйста доделать задачу, надо чтобы она была решена без потоков