Разбить прогу на procedure and function

[users1]

Привет всем написал программу, но не знаю как разделить на procedure and function. Помогите пожалуйста

ВОТ КОД

program p2;

uses
  crt;

var
  i, n: byte;
  Arr_X, Arr_Y: array of real;
  S: real;

begin
  
  //ввод данных
  repeat
    writeln('Введите количество вершин n-угольника, не превосходящее 20');
    readln(n);
  until ((3 <= n) and (n <= 20));
  
  Inc(n);
  SetLength(Arr_X, n);
  SetLength(Arr_Y, n);
  
  for i := 0 to n - 2 do
  begin
    writeln('Введите координаты x(', i + 1, ')');
    readln(Arr_X[i]);
    writeln('Введите координаты y(', i + 1, ')');
    readln(Arr_Y[i]);
  end;
  
  Arr_X[n - 1] := Arr_X[0];
  Arr_Y[n - 1] := Arr_Y[0];
  
  //вычисление по формуле
  for i := 0 to n - 2 do
  begin
    S := S + (Arr_X[i] + Arr_X[i + 1]) * (Arr_Y[i] - Arr_Y[i + 1]) / 2;
  end;
  
  writeln('Площадь вашего ', n - 1, '-угольника = ', Abs(S));
  
end.

[ZX Spectrum-128]

А что именно оформить как процедуры и функции?

[ZX Spectrum-128]

program p2;

var
  i, n: byte;
  Arr_X, Arr_Y: array of real;
  S: real;

function square(x, y: array of real): real;
var
  S: real;
  i: integer;

begin
  //вычисление по формуле
  for i := 0 to n - 2 do
  begin
    S := S + (Arr_X[i] + Arr_X[i + 1]) * (Arr_Y[i] - Arr_Y[i + 1]) / 2;
  end;
  square := s;
end;

begin
  
  //ввод данных
  repeat
    writeln('Введите количество вершин n-угольника, не превосходящее 20');
    readln(n);
  until ((3 <= n) and (n <= 20));
  
  Inc(n);
  SetLength(Arr_X, n);
  SetLength(Arr_Y, n);
  
  for i := 0 to n - 2 do
  begin
    writeln('Введите координаты x(', i + 1, ')');
    readln(Arr_X[i]);
    writeln('Введите координаты y(', i + 1, ')');
    readln(Arr_Y[i]);
  end;
  Arr_X[n - 1] := Arr_X[0];
  Arr_Y[n - 1] := Arr_Y[0];
  writeln('Площадь вашего ', n - 1, '-угольника = ', Abs(Square(Arr_x, arr_y)));
end.

[users1]

спасибо