Найти наибольший общий простой делитель

uses crt;
{функция определения простого числа}
function Prost(n:integer):boolean;
var i:integer;
begin
if n<2 then Prost:=false
else
 begin
  Prost:=true;
  for i:=2 to round(sqrt(n))do
  if n mod i=0 then
   begin
    Prost:=false;
    break;
   end;
 end;
end;
var a,b,c,d,nod,k:integer;
begin
clrscr;
writeln('Введите 2 целых числа:');
readln(a,b);
{выберем меньшее число}
if a>b then
  begin
   c:=a;
   a:=b;
   b:=c;
  end;
{начнем проверять делимость начиная с 2}
d:=2;k:=0;
while d<=a do
 begin
  if (a mod d=0)and(b mod d=0)and Prost(d) then{если оба делятся и делитель простой}
   begin
    nod:=d;
    k:=1;
   end;
  d:=d+1;
 end;
if k=0 then write('Общего простого делителя нет')
else write('Наибольший общий простой делитель=',nod);
readln
end.

while d<=a do
 begin
  if (a mod d=0)and(b mod d=0)and Prost(d) then{если оба делятся и делитель простой}
   begin
    nod:=d;
    k:=1;
   end;
  d:=d+1;
 end;
if k=0 then write('Общего простого делителя нет')
else write('Наибольший общий простой делитель=',nod);
readln
end.

if a>b then
c:=a;
a:=b;
b:=c?

if a>b then
c:=a;
a:=b;
b:=c?