if (k=9) or(k=10) then o:=p+4;
 if (k=11) then o:=p+3;

var
  y, m, d: word;
  p, k, o, t: integer;
begin
  DecodeDate(StrToDate(Edit3.Text), y, m, d);  //  Получили исходный год
  d:= 0;
  Case RadioGroup1.ItemIndex of  //  Выбираем тип счёта
    0: begin
         for p:= y to y + 59 do  //  Считаем количество дней для мужчин
          if IsLeapYear(p) then  //  Если год высокосный
            d:= d + 366
          else  //  Если нет
            d:= d + 365;
         label11.Caption:= DateToStr(StrToDate(Edit3.Text) + d);  //  Считаем и выводим результат
       end;
    1: begin
         for p:= y to y + 54 do
          if IsLeapYear(p) then
            d:= d + 366
          else
            d:= d + 365;
         label11.Caption:= DateToStr(StrToDate(Edit3.Text) + d);
       end;
  end;
end;

var p,k,o,t,e,new,yy,no,code,new1:integer;
    s,y,x:string;
begin
 s:=edit3.text;
 p:=strtoint(edit6.Text); {год поступления}
 k:=strtoint(edit4.Text); {какой класс}
 t:=strtoint(edit3.Text); {дата рождения}
 e:=strtoint(edit2.Text); {текущий класс}
 if (k=9) or(k=10) then o:=p+4;
 if (k=11) then o:=p+3;
 label9.Caption:=inttostr(o);
 no:=pos('.',s);
 y:=copy(s,no+4,length(s)-no); {год (число)}
 x:=copy(s,1,length(s)-4);     {дд.мм}
 yy:=strtoint(y);               {числом}
 new:=0;
 new1:=0;
 if radiogroup1.ItemIndex=0 then
  begin
    new:=yy+men;
    label9.Caption:=inttostr(new)+x;
  end;
 if radiogroup1.ItemIndex=1 then
  begin
    new1:=yy+women;
    label9.Caption:=inttostr(new1)+x;
  end;

 s:=edit3.text;
 p:=strtoint(edit6.Text); {год поступления}
 k:=strtoint(edit4.Text); {какой класс}
 e:=strtoint(edit2.Text); {текущий класс}
 if (k=9) or(k=10) then o:=p+4;
 if (k=11) then o:=p+3;
 label9.Caption:=inttostr(o);
 no:=pos('.',s);
 y:=copy(s,no+4,length(s)-no); {год (число)}
 x:=copy(s,1,length(s)-4);     {дд.мм}
 yy:=strtoint(y);               {числом}
 new:=0;
 new1:=0;
 if radiogroup1.ItemIndex=0 then
  begin
    new:=yy+60;
    label11.Caption:= x + inttostr(new);
  end;
 if radiogroup1.ItemIndex=1 then
  begin
    new1:=yy+55;
    label11.Caption:= x + inttostr(new1);
  end;