Распечатать данные учеников (ФИО,номер группы,школа),участвовавших в олимпиаде по информатике и набравшие не менее 30 баллов.

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.

const
    line = '---------------------';
    count = 3;
type
    students = record
        name: string[15];
        group: byte;
        school: byte;
        mark: byte;
end;
var
    arr: array[1..count] of students;
    i: byte;
begin
    writeln('Введите данные о ', count, ' студентах: ');
    for i := 1 to count do
    begin
        write('Фамилия ', i, '-го студента: ');
        readln(arr[i].name);
        write('Номер группы: ');
        readln(arr[i].group);
        write('Номер школы: ');
        readln(arr[i].school);
        write('Набранные баллы: ');
        readln(arr[i].mark);
        writeln(line);
    end;
    writeln('Данные студентов, набравших более 30 баллов: ');
    writeln('|    Фамилия:     |    Группа:   |    Школа:    |'); 
    for i := 1 to count do
        if (arr[i].mark > 30) then
        begin
            write('    ', arr[i].name, '             ');
            write(arr[i].group, '             ');
            writeln(arr[i].school, '             ');
        end;
    writeln(line);
end.