Найти НОД чисел. - Turbo Pascal

uses crt;
var a,b,d:integer;
    s:string;
begin
clrscr;
writeln('Введите 2 целых числа через пробел');
readln(s);
val(copy(s,1,pos(' ',s)-1),a,d);
if d<>0 then write('Строка введена неверно, повторите')
else
 begin
  delete(s,1,pos(' ',s));
  val(s,b,d);
  if d<>0 then write('Строка введена неверно, повторите')
  else
   begin
    repeat
    if abs(a)>abs(b) then a:=a mod b
    else b:=b mod a;
    until(a=0)or(b=0);
    write('Нод=',abs(a+b));
   end;
 end;
readln
end.