Помогите,написать программу вычисления площади кольца используя процелуру вычисления площади круга, в Турбо Паскале

Это не будут работать в ТурбоПаскаль, как надо.

Нужны подключение Crt и задержка до нажатия клавиши перед завершением работы.

Требуется использовать процедуру

program Ls112kfdkfjfj;const pi=3.14;var n,m: real;function S(r: real): real;begin     S:=pi*r*r;end;begin     write('R1='); readln(n); n:=S(n);     write('R2='); readln(m); m:=S(m);     writeln('S=',abs(n-m));end.