Переделать на язык си...и посмотрите...правильно ли я составила на паскале вообще...

[VIKA1829]

Задание
1. Дан список учебной группы, включающий 20 человек. Для каждого студента известны: фамилия, имя, дата рождения, оценки по всем дисциплинам за последний семестр. Составить программу, которая обеспечивает ввод информации и отображение ее на экран в виде таблицы. Отобразить на экран анкетные данные студентов-отличников в виде таблицы. Отобразить на экран фамилию и имя студентов, родившихся зимой и весной.
На паскале

uses crt;
cоnst n=3;
Type
students = record
famil: string[30];
imya : string[15];
drojd: string[10];
otsn:integer;
end;
var x,y:students; mas1:array[1..n] of students; j:integer;

begin
clrscr;
for j:=1 to n do
begin
write('BBeDuTe family: '); readln(mas1[j].famil);
write('BBeDuTe um9:я'); readln(mas1[j].imya);
write('BBeDuTe DaTy po*DeHu9: '); readln(mas1[j].drojd);
write('BBeDuTe 6a/\/\: '); readln(mas1[j].otsn);
writeln;

end;

writeln('Bce cTyDeHTbl:');
for j:=1 to n do
begin

writeln('family:я ',mas1[j].famil);
writeln('um9: ',mas1[j].imya);
writeln('data ro*deHu9: ',mas1[j].drojd);
writeln('6a/\/\: ',mas1[j].otsn);
writeln;
end;

writeln('cTyDeHTbl-oT/\u4Huku:');
for j:=1 to n do
begin
if mas1[j].otsn=5 then begin
writeln('family:я ',mas1[j].famil);
writeln('um9: ',mas1[j].imya);
writeln('data ro*deHu9: ',mas1[j].drojd);
writeln('6a/\/\: ',mas1[j].otsn);
writeln;
end else writeln('HeT oT/\u4HukoB!');
end;

writeln('Press Enter to exit...');
readkey;
end.