Найти числа, запись которых совпадает с последними цифрами записи их квадратов

var i, j, k, n, d, q: integer;
begin
  write('n = '); //вводим n
  readln(n);
  for i := 1 to n do //цикл поиска чисел
    begin
      q := i * i; //квадрат текущего числа
      k := trunc(ln(i) / ln(10)) + 1; //[lg(i)+1], количество разрядов в числе
      d := 1; //вычисляем d=10^k, начальное значение d=1
      for j := 1 to k do d := d * 10; //умножаем d на 10 k раз
      if q mod d = i then writeln(i, '^2=', q, ', digits: ', trunc(ln(q) / ln(10)) + 1) //выделяем k младших разрядов квадрата числа, в случае равенства числу печатаем результат
    end;
  readln
end.

program five_hundred_sixty_one;
const
  b = 10;
var
  n, m{i}, k{количество}, h, i, p: integer;
begin
  writeln('Дано натуральное число n. Среди чисел 1,…,n найти такие, запись которых совпадает с последними цифрами записи их квадратов');
  writeln('Введите число: '); readln(n);
  m := i;
  h := 0;
  k := 0;
  for i := 1 to n do  begin
    m := i;
    h := i * i; {находим квадрат числа, чтобы потом сравнить его с неквадратом этого числа}
    while (m <> 0) and (m mod b = h mod b) do  begin
      m := m div b;
      p := m mod b;
      k := k + 1;
      h := h div b;
    end;
    
    if m = 0 then begin
      {while (m <> 0) and (m mod b = h mod b) do  begin
         m := m div b;
      end;}
      writeln(i, ' ', k);
    end;
  end;
end.

      if q mod d = i then writeln(i, ', digits: ', trunc(ln(i) / ln(10)) + 1, ', ', i, '^2=', q)

       if q mod d = i then writeln(i, ', digits: ', k, ', ', i, '^2=', q)