Задача из ЕГЭ

var
max, col, n, s,i: integer;
 
begin
  max := 0;
  col := 0;
  for i := 1388 to 63252 do
    if (i mod 12 <> 0) then
    begin
      n := i;
      s := 0;
      while ( n > 0) do
      begin
        n := n div 10;
        s := n mod 10;
        if ( s=7) or ( s=4) then
        begin
          col:= col + 1;
          if i > max then
            max:=i
        end;
      end;
    end;
  writeln(col, ' ',max);
end.

var max, col, i, n, s, k: integer;
begin
  max := 0;
  col := 0;
  for i := 1388 to 63252 do
  if i mod 12 <> 0 then
   begin
    n := i;
    k := 0;
    while (n > 0)and(k=0) do
     begin
      if n mod 10 in [4,7] then k:=1//сначала определяем последнюю цифру
     //находим 4 или 7, больше не ищем (у Вас каждая цифра 4 или 7 увеличивает col)
      else n:=n div 10///а затем сокращаем числ, а не наоборот, как у Вас
    end;
    if k=1 then
     begin
      col:=col+1;
      if i > max then  max:=i
     end;
   end;
 writeln(col, ' ',max);
end.

function in7or4(i : Integer) : Boolean;
begin
  if i=0 then
    Result := False
  else if (i mod 10=7)or(i mod 10=4) then
    Result := True
  else
    Result := in7or4(i div 10);
end;
 
var
  i,count,max : Integer;
begin
  count:=0;
  max:=-1;
  for i := 1388 to 63252 do
    if (i mod 12>0)and in7or4(i) then
      begin
        inc(count); max := i;
      end;
  WriteLn(count, #32, max);
end.

if i > max then  max:=i

var max, col, i, n: Integer;
begin
  {max:=0; col:=0;}
  for i:=1388 to 63252 do
    if i mod 12<>0 then begin
      n:=i;
      while n>0 do
        if n mod 10 in [4,7] then begin
          Inc(col); max:=i; n:=0;
        end else n:=n div 10;
    end;
  WriteLn(col,' ',max);
end.