стек в паскале

[katyawapka]

помогите сделать стек в паскале на эту программку

var m,n:integer;
function C(n,m:integer):longint;
begin
if (m=1) or (m=n)
then C:=n-m+1
else C:=C(n-1,m)+C(n-1,m-1);
end;
begin
writeln(n);
writeln (m);
readln(m,n);
if n>= m then
writeln('C=',c(n,m))
else
writeln(' введены недопустмы значение переменной ');
end.