Напишите функцию , которая вычисляет наибольший общий делитель двух чисел

Function nod(a, b: integer): integer; var tmp, r: integer; begin     if b > a then     begin         tmp : = a;         a : = b;         b : = tmp;     end;     tmp : = a;     while tmp > 0 do     begin         result : = tmp;         tmp : = tmp - b;     end; end; пример программы с использованием данной функции: program example; var a, b: integer; function nod(a, b: integer): integer; var tmp, r: integer; begin    if b > a then    begin        tmp : = a;         a : = b;         b : = tmp;     end;     tmp : = a;     while tmp > 0 do    begin        result : = tmp;         tmp : = tmp - b;     end; end; begin    write('a = ');     readln(a);     write('b = ');     readln(b);     write('нод: ', nod(a, b));     readln; end.

Program vasil ; var n , m  : integer ; begin   write ( 'vvedi chislo bochek n=' ) ;   readln ( n ) ;   m : = n mod 10 ;       if ( m = 1 and n < > 11  ) then writeln ( n , '  bochka' )      else if (m < = 4 and n < > 12 and n < > 13 and n < > 14 and m < > 0) then writeln ( n , ' bochki' )        else writeln ( n , ' bochek' ) ;   end.    так, наверное. если будет косяк, то пиши, или сам сообрази где ошибка. сейчас нет под рукой компилятора, не могу оттестировать. 

//pascalabc.net 3.1 сборка 1200 begin       var s : = readstring('s = ');       if s='' then s: ='какое небо голубое, какой богатенький буратино';       writeln(s);       s : = s.trim();       s : = s.replace(',', ' ');       s : = s.replace('; ', ' ');       s : = s.replace('.', ' ');       s : = s.replace('  ', ' ').replace('  ', ' ').replace('  ', ' ').replace('  ', ' ');       for var i : = 1 to s.length - 1 do               if s[i] = ' ' then                       s[i + 1] : = s[i - 1];       writeln(s); end.