Найти названия предметов, которые ведет преподаватель с фамилией Fam

program c;
const n=5;
type 
  stroka = array [1..20] of char;
    dayweek = ( mo, tu, we, th, fr, sa, su);
    time = record
            hour: 0..23;
            min: 0..59;
        end;
    seminar = record
                subject,teacher : stroka;
                day: dayweek;
                hours: record
                        s_time, e_time: time;
                    end;
                n_group: 1..300;
                classroom: Integer;
            end;

program c;
const n=5;
type 
  stroka = array [1..20] of char;
    dayweek = ( mo, tu, we, th, fr, sa, su);
    time = record
            hour: 0..23;
            min: 0..59;
        end;
    seminar = record
                subject,teacher : stroka;
                day: dayweek;
                hours: record
                        s_time, e_time: time;
                    end;
                n_group: 1..300;
                classroom: Integer;
            end;
var search_name:stroka; i: integer;
    
begin
for i:=1 to n do 
    begin
        Writeln('Введите название предмета');
        Readln(search_name[i].subject);     
        Writeln('Введите фамилию преподавателя');
        Readln(search_name[i].teacher);
        Writeln('Введите день недели  (mo, tu, we, th, fr, sa, su)');
        Readln(search_name[i].day);
        Writeln('Введите время начала занятия');
        Readln(search_name[i].hours.s_time);
        Writeln('Введите время окончания занятия');
        Readln(search_name[i].hours.e_time);
        Writeln('Введите номер группы');
        Readln(search_name[i].n_group);
        Writeln('Введите номер аудитории');
        Readln(search_name[i].classroom);
        clrscr;
        Wrileln('Заполнено ',i,' записей из ', n);
        i:=i+1;
    end;
Writeln;
Wrileln('Какого преподавателя ищем?');
Readln(search_name);
for i:=1 to n do
if a[i].teacher = search_name then writeln(a[i].subject);
Writeln;
Writeln;
end.

program c;
uses crt;
const n=5;
type 
  stroka = array [1..20] of char;
    dayweek = ( mo, tu, we, th, fr, sa, su);
    time = record
            hour: 0..23;
            min: 0..59;
        end;
    seminar = record
                subject,teacher : stroka;
                day: dayweek;
                hours: record
                        s_time, e_time: time;
                    end;
                n_group: 1..300;
                classroom: Integer;
            end;
var
day : integer; 
a : array[1 .. n] of seminar;
search_name:stroka; i: integer;
    
begin
for i:=1 to n do 
    begin
        Writeln('Введите название предмета');
        Readln(a[i].subject);     
        Writeln('Введите фамилию преподавателя');
        Readln(a[i].teacher);
        Writeln('Введите день недели  (mo=0, tu=1, we=2, th=3, fr=4, sa=5, su=6)');
        Readln(day);
        a[i].day := dayweek(day);
        Writeln('Введите время начала занятия: часы минуты');
        Readln(a[i].hours.s_time.hour, a[i].hours.s_time.min);
        Writeln('Введите время окончания занятия: часы минуты');
        Readln(a[i].hours.e_time.hour, a[i].hours.e_time.min);
        Writeln('Введите номер группы');
        Readln(a[i].n_group);
        Writeln('Введите номер аудитории');
        Readln(a[i].classroom);
        clrscr;
        Writeln('Заполнено ',i,' записей из ', n);
    end;
Writeln;
Writeln('Какого преподавателя ищем?');
Readln(search_name);
for i:=1 to n do
if a[i].teacher = search_name then writeln(a[i].subject);
Writeln;
Writeln;
end.

  stroka = string[20]; // array [1..20] of char;