Ввести репертуар театров, вывести список всех комедий - Turbo Pascal - Ответ 6211194

program t2_v13;
type  tipspect = (det, vzrosl, musical);
teatr = record
nazv:string[20];
data: integer;
spectacl: string[20];
avtor:string[20];
case v: tipspect of
   det: (vozr: integer);
   vrosl: (piessa, drama, komedia : string[20]);
   musical: (kompozit: string[20]);
   end;
const Nmax = 10;
var repertyar: array[1..Nmax] of teatr;
n: byte;
 
procedure vvod;
var
    i,k: integer;
    vybor: byte;
    nazv: string;
begin
     repeat
     Writeln('Ââåäèòå êîë-âî òåàòðîâ (îò 1 äî ',Nmax,'): ');
     readln(n);
     until (n>=1) and (n<=Nmax);
     for i:=1 to n do
     with repertyar[i] do
     begin
     writeln('ÂÂåäèòå äàííûå î ñïåêòàêëå: ');
     write('1 - äåòñêèé, 2- âçðîñëûé, 3 - ìóçûêàëüíûé');
     readln(vybor);
     case vybor of
     1: v := det;
     2: v := vzrosl;
     3: v := musical;
     end;
        writeln('Íàçâàíèå:'); readln(nazv);
        writeln('Äàòà:'); readln(data);
        case v of
        
        det: begin write('Âîçðàñò:');
        readln(vozr);  end;
        
        vzrosl: begin  write('Ïüåññà');
        readln(piessa); write('Äðàììà:'); readln(drama);
        write('Êîìåäèÿ:'); readln(komedia);
        end;
        
        musical: begin write('Êîìïîçèòîð:'); readln(kompozit);
        end;
end;
 
procedure vyvod;
var i: integer;
begin
      WriteLn('+-------------------------+----------+-----------+----------+---------------+----------------------------+');
      WriteLn('| Íàçâàíèå òåàòðà         |   Äàòà   | Ñïåêòàêëü |  Àâòîð   | Òèï ñïåêòàêëÿ |  Òèï âçðîñëîãî ñïåêòàêëÿ   |');
      WriteLn('+-------------------------+----------+-----------+----------+---------------+----------------------------+');
      for i:=1 to n do
      with repertyar[i] do
      begin
           write(nazv:25,'|',data:8,'|');
           case v of
             det: write('Äåòñêèé  |', vozr:8, ' |            |');
             vzrosl: write('Ïüåñcà,')