Запись код программы в функцию

[Necker]

Может кто-то объяснить, на примере моего кода, как тело проги в функцию запихнуть, буду признателен

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  ans: char;
  S: int64;
  N: int64;
  a,b,c: integer;
  D,iD: real;
  Label Input;
Procedure Title;
begin
  Writeln('Programm for');
  Writeln('Programm by Necker ');
end;
Function Repeat_Prog: boolean;
var ans:char;
begin
  Write('Continue? Y/N');
  readln(ans);
  if (ans = 'Y') or (ans = 'y') then
    Result := false
  else
    Result := True;
end;
Begin
Title;
Input:
  Repeat
  S:=1;
    Write('Diapazon ');
    Readln(N);
  if (N < 0) then
    begin
      Write('Input count not +');
      Goto Input;
    end
  else
    for a := -N to N do
    begin
      if (a = 0) then continue;
      for b := -N to N do
      for c := -N to N do
    begin
      D := sqr(b) - 4*a*c;
if D < 0 then
   Break; {Корней нет}
begin
   iD := int(sqrt(D));
   if sqr(iD) <> D then Break; {Выходим из цикла на следующий шаг}
   writeln('a = ', a, '  b = ', b, ' c = ',c);
   writeln('x1 = ',(-b - iD):2:0,'/',(2*a),'  x2 =', (-b + iD):2:0, '/',(2*a));
      S:=S+1;
      end ;
    end ;
  end ;
  Writeln('Korni', S);
  Until Repeat_Prog;
  Writeln('Press the "Enter" for quit program');
  Readln;

end.