Контрольная работа

program zad4;
uses crt;
var a1,a2,a3,a4,s,i:integer;
begin
clrscr;
writeln('первая цифра равна второй, а третья - четвертой');
s:=0;
for i:=1000 to 9999 do
 begin
        a1:=i div 1000;
        a2:=i div 100 mod 10;
        a3:=i div 10 mod 10;
        a4:=i mod 10;
  textcolor(10);
  if (a1=a2)and(a3=a4) then
  begin
  writeln(a1,a2,a3,a4);
  s:=s+1;
  end;
 end;
 textcolor(3);
 writeln('таких ->',s,' числа');
 writeln;
 readln;
end.

var
n,m,buf:integer;
cf,min:byte;
begin
{Для того чтобы введено только натуральное число}
  repeat
    writeln('Введите натуральное число');
    readln(n);
  until n > 0;
  {Считаем что минимальное значение имеет последняя цифра}
   min:=n mod 10;
   n:=n div 10;
   buf:=n; //использум чтобы сохранить значение n
    while buf > 0 do begin
      cf:=buf mod 10;
        if cf < min then min:=cf;
      buf:=buf div 10;
    end;
   m:=n*10+min;
 writeln('Новое число=',m);
end.