Program Funkzii;
uses crt;
label 1,2,3,4,5,6;
var  a,b,k:integer;
c:string;
begin
4:clrscr;
write('Нахождение остатка от целочисленного деления ');
readln(a);
if  a<>0 then goto 6 else goto 5;
5:writeln('Делимое не должно равняться нуля. Введите новое число: ');
readln(B);
if  a<>0 then goto 6 else goto 5;
6:write('‚Введите делитель: ');
readln(B);
if  b<>0 then goto 1 else goto 3;
3:writeln('Делитель не должен равняться нулю. Введите новое число: ');
readln(B);
if  b<>0 then goto 1 else goto 3;
1:writeln('Остаток от числа ',a,'=',a mod B);
writeln('Частное чисел ',a, ' и ',b,'=',a div B);

writeln(' Если  вы хотите прод. вып проги введите Да');
readln(c);
if (c='Да ') then goto 4;
end.

Program Funkzii;
uses crt;
var a, b: integer;
isExit: boolean;
begin
 isExit := False;
 repeat
   clrscr;
   write('Нахождение остатка от целочисленного деления ');
   repeat
     write('делимое: '); readln(a);
     if  a = 0 then
       write('Делимое не должно равняться нулю. Введите новое ');
   until a <> 0;
   repeat
     readln(B);
     write('делитель: '); readln(b);
     if  b = 0 then
       writeln('Делитель не должен равняться нулю. Введите новый ');
   until b <> 0;
   writeln('Остаток от числа ',a,'=',a mod B);
   writeln('Частное чисел ',a, ' и ',b,'=',a div B);
   writeln('Частное = ', Trunc(a/b), ' остаток = ', a - Trunc(a/b)*b)

   writeln(' Если  вы хотите продолжить нажмите "Д"');
   if not (readkey in ['Д', 'д']) then isExit := True;
 until isExit;
end.

....
While a>=b do a:=a-b;
Writeln('Остаток от деления: ',a);
....