Перепиши эту программу с процедурами или функциями: Program thirteen;

const n = 3;

type lesson=record
  
  vid:string[20];
  
  naz:string[20];
  
  fam:string[20];
end; 

type lessons = array[1..n] of lesson;

var ls:lessons;
chit:array[1..n] of string[20];
i,j,a,k,chital:integer;
afam:string[20];
anaz:string[20];
famcurr:string[20];

procedure FillLessons(var ls: lessons);
var
i: integer;
begin
  for i := 1 to n do begin
  
  writeln('Занятие ', i);

  write('Вид: ');
  readln(ls[i].vid);
  
  write('Название: ');
  readln(ls[i].naz);
  
  write('Преподаватель: ');
  readln(ls[i].fam);
  
  end;
end;

function a1(ls: lessons; afam, anaz: integer):integer;
var
i: integer;
begin
  for i := 1 to n do begin
    if((ls[i].fam = afam) and (ls[i].naz = anaz) and (ls[i].vid = 'лекция')) then
      a += 1;
  end;
  a1 := a;
end;



begin
  
  a := 0;
  
  k := 1;
  
  FillLessons(ls);


  
  writeln('а) введите фамилию преподавателя');
  readln(afam);
  
  writeln('введите название предмета');
  readln(anaz);
  
  writeln('Количество лекций по предмету ', anaz,' прочитанных ', afam, ' = ',a1(ls, afam, anaz));
  
  for i := 1 to n do begin
    if(ls[i].vid = 'лекция') then begin
      chit[k] := ls[i].fam;
      k += 1;
    end;
    
  end;
  
  write('Преподаватели, не читавшие лекции: ');
  
  for i := 1 to n do begin
    chital := 0;
    for j := 1 to k do begin
      if(ls[i].fam = chit[j]) then chital := 1;
    end;
    if(chital = 0) then writeln(ls[i].fam);
    end;
end.