Pascal ạ. Giúp với ạ

program UCLN;
var
  a, b, c, uclnab, uclnabc: integer;
begin
  write('Nhập số nguyên dương a: ');
  readln(a);
  write('Nhập số nguyên dương b: ');
  readln(b);
  write('Nhập số nguyên dương c: ');
  readln(c);
  uclnab := a;
  while (uclnab <> b) do
    if (uclnab > b) then
      uclnab := uclnab - b
    else
      b := b - uclnab;
  uclnabc := uclnab;
  while (uclnabc <> c) do
    if (uclnabc > c) then
      uclnabc := uclnabc - c
    else
      c := c - uclnabc;
  writeln('Ước chung lớn nhất của a, b và c là: ', uclnabc);
end.

uses crt;
var a,b,c: int64;

function gcd(a,b:int64):int64;
var t:int64;
begin
  while b <> 0 do
    begin
       t := b;
       b := a mod b;
       a := t;
    end;
    exit(a);
end;

begin
    clrscr;
    readln(a,b,c);
    write(gcd(a,gcd(b,c)));
end.