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

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


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) <= r then inc(no);
if n mod 1000 = 0 then begin
gotoxy(1, 2);
write('num: ',n,'; current: ', 4.0 * no / n:0:6);
end;
if keypressed then run := false;
end;
end.