Нужно добавить подпрограмму

program z_number; 
uses crt; 
var NumberA, NumberB, Number, CounterI, CounterJ : word; 
    Flag:boolean; 
begin 
 clrscr; 
 repeat 
  writeln('Введите начало отрезка, число A'); 
  readln(NumberA); 
  writeln('Введите конец отрезка, число B'); 
  readln(NumberB); 
 
  if (NumberA > NumberB) then 
   writeln('Числа введены не правильно, A > B'); 
 
 until (NumberA <= NumberB); 
 
 Number := 0; 
for CounterI := NumberA to NumberB do 
 begin 
  Flag := false; 
  for CounterJ := 2 to trunc(sqrt(CounterI)) do 
  if (CounterI mod CounterJ = 0) then 
  begin 
   Flag := true; 
   break; 
  end; 
 
  if (Flag = false) then 
  begin 
   write(CounterI,' '); 
   inc(Number); 
  end; 
 end; 
 
if (Number = 0) then 
  writeln('На данном отрезке нет простых чисел'); 
readln; 
end.

program z_number;
uses crt;
var NumberA, NumberB, Number, CounterI, CounterJ : word;
    Flag:boolean;
 
Procedure n(Var A,B:word);
begin
Number := 0;
for CounterI := A to B do
 begin
  Flag := false;
  for CounterJ := 2 to trunc(sqrt(CounterI)) do
  if (CounterI mod CounterJ = 0) then
  begin
   Flag := true;
   break;
  end;
if (Flag = false) then
  begin
   write(CounterI,' ');
   inc(Number);
  end;
 end;
if (Number = 0) then
  writeln('Íà äàííîì îòðåçêå íåò ïðîñòûõ ÷èñåë');
end;
 
begin
 clrscr;
 repeat
  writeln('Ââåäèòå íà÷àëî îòðåçêà, ÷èñëî A');
  readln(NumberA);
  writeln('Ââåäèòå êîíåö îòðåçêà, ÷èñëî B');
  readln(NumberB);
if (NumberA > NumberB) then
 writeln('×èñëà ââåäåíû íå ïðàâèëüíî, A > B');
until (NumberA <= NumberB);
n(NumberA,NumberB);
readln;
end.