Определить сколько учеников хотели пойти в 10 класс, кто хотел поступать в училище и техникум

program matr;
type
uchenik = record
    family : string;
    kl_10 : boolean;
    kuda_post : string;
    post_stat : boolean;
end;
 
var
    i, j : integer;
    kl9 : array[1..10,1..3] of uchenik;
    bol : integer;
    kolvo_klas:integer;
    chel_v_kl : integer;
  count_kl10: integer;
  otvet : String;
begin
    chel_v_kl := 10;
    {Vvodim dannie uchenikov}
    for i:=1 to 3 do
    begin
        for j:=1 to 10 do
        begin
            WriteLn('Vvedite family: ');
            ReadLn(kl9[j,i].family);
            WriteLn('Vvedite idet li v 10 klass? (1 - DA, 0 - HET: ');
            ReadLn(bol);
            if bol = 1 then
            begin
                kl9[j,i].kl_10:=true;
                kl9[j,i].kuda_post:='';
                kl9[j,i].post_stat:=false;
            end else
      begin
                kl9[j,i].kl_10:=false;
              WriteLn('Vvedite kuda postupal (UCH - uchilishe, TECHN - technickum): ');
              ReadLn(kl9[j,i].kuda_post);
              WriteLn('Vvedite postupil li? (1 - DA, 0 - HET: ');
              ReadLn(bol);
              if bol = 1 then kl9[j,i].post_stat:=true else kl9[j,i].post_stat:=false;
      end;
        end;
    end;
    {//---------------------------------}
    for i:=1 to 3 do
    begin
        for j:=1 to 10 do
        begin
            if kl9[j,i].kl_10 then Count_Kl10:=Count_Kl10+1 else
            begin
        if kl9[j,i].post_stat then otvet:='DA' else otvet:='HET';
                WriteLn('Hotel postupat uchenik: ',kl9[j, i].family,'iz',i,' 9 klassa v: ',kl9[j, i].kuda_post,' Postupil li?: ',otvet);
            end
        end;
    end;
 
    WriteLn('Hotyat v 10 klass: ',Count_Kl10, '. Kolichestvo 10 klassov = ', Round(Count_Kl10/10)+1, ' po ',chel_v_kl, 'chelovek');
{   //Statisticks}
  ReadLn;
end.