girilen iki sayının aralarında asal olup olmadığı - PASCAL

girilen iki sayının aralarında asal olup olmadığını bulan program lazım pascal diline ait
for ve if ve sayac kullanlarak olacak ama bir türlü yapamadım? pascal yeni başladım.

arkadaşım pascalı unuttum ama. şöyle bir algoritma sunabilirm.
1- iki sayıyı karşılaştır. büyük olana enb ata diğerine enk ata
2- büyük sayıyı, küçük sayıya kadar olan sayılara böldür. enb / sayi = tamsayı ise sayacı 1 arttır. bu bir tek enb / 1 için mümkün olacaktır.
3- eğer sayac 2 den farklı ise aralarında asal değil. sayac 1 ise aralarında asal.(burayı if ile yaparsın.)

örnek verecek olursak ;

3,5 aralarında asalmı.
büyük sayı : 5, küçük sayı: 3
1. adım 5 / 1 = 5 (sonuc tamsayı) sayac 1 olsun
2. adım 5 / 2 = 2.5 (soncu tamsayı değil sayaca arttmaz)
3. adım 5 / 3 = 1.67( sonuc tamsayı değil sayac arttmaz).

if(sayc == 1 ) print ("aralarında asal");
else print (aralarında asal değil.)

ama bu iyi bir çözüm deildir. büyük sayılar için program kasar. ilk aklıma gelen hemen bu oldu. ama iş görür.