解释以下这个程序(pascal)

type point=^node;
node=record
data:integer;
next:point;
end;
var m,n,s:integer;
p,q,head:point;
begin
readln(n,m);
new(head);
q:=head;
head^.data:=1;
for s:=2 to n do
begin
new(p);
p^.data:=s;
q^.next:=p;
q:=p;
end;
q^.next:=head;
s:=1;
q:=head;
repeat
p:=q^.next;
inc(s);
if s mod m=0
then begin
q^.next:=p^.next;
write(p^.data:6);
dispose(p);
end
else q:=p;
until p^.next=p;
write(p^.data:6);
end.

解释以下这个程序(pascal) 解释Pascal程序 pascal 怎么组这个程序~ 解释以下这个等式 谁会用PASCAL这个程序啊？ pascal 怎么求这个程序阿 帮忙找出这个PASCAL程序的错误 如何解释这个程序 解释下这个程序！ 某一个Pascal 程序中截取出来的一段，求解释