из паскаля в си

[IIe4eHbka]

Program file11;
uses crt;
Type Student = record
      fio: string [5];
      kurs, group: integer;
      conk: string[10];
      ins: string[20];
end;
var
     f: file of student;
     name: string;
     uch: array[1..4] of student;
     i:integer;
     n:char;
     s1:student;
begin
clrscr;
Writeln ('Задайте имя файла');
Readln (name);
Assign (f, name);
Rewrite (f);
Writeln ('Введите фамилию и инициалы студента');
Readln (s1.fio);
While s1.fio <> ' ' do
      Begin
           Writeln ('Введите номер курса и группы');
           Readln (s1.kurs, s1.group);
           writeln ('участвовал(вала) студент(ка) в олимпиаде? ');
           readln (s1.conk);
           writeln ('введите инструмент: ');
           readln (s1.ins);
           write (f,s1);
           Writeln ('Введите фамилию и инициалы следующего студента ');
           Readln (name);
           s1.fio:=name;
      End;
      Writeln ('Файл создан');
         Close(f);reset(f);
      writeln (' Pokazat spisok ');
       while not Eof(f) do
       begin
             read (f,s1);
             if (s1.ins) = 'скрипка' then
                 begin
                      writeln ('ФИО: ',s1.fio);
                      writeln ('Курс: ',s1.kurs);
                      writeln ('Участвовал в конкурсе: ',s1.conk);
                      writeln('---------------------');
                 end; end;
Close(f);
End.

помогите пожалуйста в си переделать

[s-andriano]

А смысл?
Обычно намного проще написать сразу на нужном языке, чем переписывать с одного языка на другой.
Тем более, Вы даже не написали, для чего предназначена программа.

[IIe4eHbka]

Распечатать список учеников музыкальной школы, которые учатся играть на скрипке. Указать также, сколько лет они занимаются музыкой и принимали ли они участие в каких-либо конкурсах.

[Ezhik Kihze]

А смысл?

Ну нашел ТС где-то код, но бяда... сдавать надо на другом языке.