Нужно переделать код в процедуру

var
  nod, nod2, nod3, nod4, nod5, nod6, nod7, nod8, nodcom, nodcom2, nom, nom2, nom3, nom4, nom5, nom6, nom7, nom8, nom9, noy, noy2: integer;
 
begin
  writeln('Введите номер дня, месяца и года');
  readln(nod, nom, noy);
  if nod > 31 then writeln('Заданное число не является реальным!') else
  if nom > 12 then writeln('Введённый месяц не является реальным!') else
  begin
    writeln('Введённая дата: ', nod, '.', nom, '.', noy);
    //  ЧИСЛА  
    nodcom2 := nod + 7;
    nod2 := 1;
    nod3 := 2;
    nod4 := 3;
    nod5 := 4;
    nod6 := 5;
    nod7 := 6;
    nod8 := 7;
    nodcom := nodcom2;
    //  МЕСЯЦА
    nom2 := nom + 1;
    nom3 := nom + 1;
    nom4 := nom + 1;
    nom5 := nom + 1;
    nom6 := nom + 1;
    nom7 := nom + 1;
    nom8 := nom + 1;
    nom9 := 1;
    //  ГОД
    noy2 := noy + 1;
    
    if nom < 12 then 
      case nod of
        1..24: writeln('Дата нашего дня через неделю: ', nodcom, '.', nom, '.', noy);
        25: writeln('Дата нашего дня через неделю: ', nod2, '.', nom2, '.', noy);
        26: writeln('Дата нашего дня через неделю: ', nod3, '.', nom3, '.', noy);
        27: writeln('Дата нашего дня через неделю: ', nod4, '.', nom4, '.', noy);
        28: writeln('Дата нашего дня через неделю: ', nod5, '.', nom5, '.', noy);
        29: writeln('Дата нашего дня через неделю: ', nod6, '.', nom6, '.', noy);
        30: writeln('Дата нашего дня через неделю: ', nod7, '.', nom7, '.', noy);
        31: writeln('Дата нашего дня через неделю: ', nod8, '.', nom8, '.', noy);
      end
    else 
      case nod of
        1..24: writeln('Дата нашего дня через неделю: ', nodcom, '.', nom, '.', noy);
        25: writeln('Дата нашего дня через неделю: ', nod2, '.', nom9, '.', noy2);
        26: writeln('Дата нашего дня через неделю: ', nod3, '.', nom9, '.', noy2);
        27: writeln('Дата нашего дня через неделю: ', nod4, '.', nom9, '.', noy2);
        28: writeln('Дата нашего дня через неделю: ', nod5, '.', nom9, '.', noy2);
        29: writeln('Дата нашего дня через неделю: ', nod6, '.', nom9, '.', noy2);
        30: writeln('Дата нашего дня через неделю: ', nod7, '.', nom9, '.', noy2);
        31: writeln('Дата нашего дня через неделю: ', nod8, '.', nom9, '.', noy2); 
      end;
  end;
end.