Напишите эту программу в делфи

Язык программирования - c++, компилятор - codeblocks
С функции insert() можно добавить заданный фрагмент в любое место строки. Первым параметром функции является номер начальной позиции для фрагмента (нумерация начинается с 0), вторым - фрагмент. Функция изменяет исходную строку.
#include <iostream>
#include <string>
using namespace std;
int main()
{
string s = "", s1;
int k;
cin >> k; // (комментарий) с какого символа добавляем.
getline(cin, s) // (комментарий) считываем начальную строку
getline(cin, s1); // строка, которую добавим в начальную
s1.insert(k, s1); // добавили
cout << s; // вывели результат
return 0;
}
конец) можешь просто в тетрадку переписать и показать учителю)

Var n,m,osn: integer;
function nmbdec(var n,osn: integer): integer;
var nmb,l,s,k: integer;
begin
  nmb:=0;  s:=0;
  k:=n;  l:=1;
  while k>0 do
  begin
    s:=k mod 10;
    k:=k div 10;
    nmb:=nmb+l*s;
    l:=l*osn;
  end;
  Result:=nmb;
end;
{ конец функции}
begin
  write('число:  ');
  readln(n);
  write('квадрат какого числа:  ');
  readln(m);
  osn:=10;
  while osn>=2 do
  begin
     osn:=osn-1;
    if nmbdec(n,osn)=sqr(nmbdec(m,osn)) then
    begin
      writeln('основание системы = ',osn);
      break;
    end;
  end;
end.