Получить анкетные данные учеников, участвовавших в олимпиаде по информатике и заработавших не менее (программа Паскаль)

Program file11;
uses crt;
Type Student = record
      fio: string [5];
      school, group: integer;
      olimp: string[10]; ball:real;
end;
var
     f: file of student;
     name: string;
     uch: array[1..4] of student;
     i:integer;
     n:char;
     s1:student; ball:real; olimp: string[10];
begin
clrscr;
Writeln ('Задайте имя файла');
Readln (name);
Assign (f, name);
Rewrite (f);
Writeln ('Введите фамилию и инициалы студента');
Readln (s1.fio);
While s1.fio <> ' ' do
      Begin
           Writeln ('Введите номер школы и группы');
           Readln (s1.school, s1.group);
           writeln ('участвовал(вала) студент(ка) в олимпиаде по информатикe? ');
           readln (s1.olimp);
           writeln ('Сколько баллов набрал?');
           readln (s1.ball);
           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);   while(s1.ball)>=30 do begin
              olimp:='информатика';
 
                 begin
                      writeln ('ФИО: ',s1.fio);
                      writeln ('Школа: ',s1.school);
                      writeln ('Участвовал в олимпиаде: ',s1.olimp);
                      writeln ('Баллы: ',s1.ball);
                      writeln('');
                 end; end;
Close(f);
End;end.