Переделать программу с использованием динамических структур данных. Паскаль

Имеется готовая программа, но ее необходимо записать с помощью процедур или функций. Задание изначально такое:


Program RGR;
uses crt;
const r: longint = 20000;
var
n, no, x, y: longint;
run: boolean;
begin
clrscr;
randomize;
run := true;
n := 0;
no := 0;
writeln('Нажмите любую клавишу для остановки');
while run do begin
inc(n);
x := random(2 * r + 1) - r;
y := random(2 * r + 1) - r;
if sqrt(x * x + y * y)