Помогите составить программу.

program z;
uses Crt;
var a,b,c,d:Integer;
begin
write('Введите два натуральных числа: ');
read(a,b);
c:=a;
d:=b;
while (a<>0) and (b<>0) do
begin
if a>b then a:=a-b
else b:=b-a;
end;
Write('НОД('+c+','+d+')=');
if a>b then Write(a)
else Write(b);
end.