Как написать функцию? - Delphi - Ответ 9824309

function DelZero(i : int64) : int64;
var n : int64;
begin
 n := 1; result := 0;
 while i <> 0 do
  begin
   if i mod 10 <> 0
    then begin
          result := result + (i mod 10) * n;
          n := n * 10;
         end;
   i := i div 10;
  end;
end;
 
procedure DelZeroP(var i : int64);
var n, m : int64;
begin
 n := 1; m := 0;
 while i <> 0 do
  begin
   if i mod 10 <> 0
    then begin
          m := m + (i mod 10) * n;
          n := n * 10;
         end;
   i := i div 10;
  end;
 i := m;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var P : int64;
begin
 if (not TryStrToInt64(Edit1.Text, P)) or (P <= 0)
  then begin
        ShowMessage('Поле ввода пусто, введено нечисловое значение или ненатуральное число');
        Exit;
       end;
 Label1.Caption := IntToStr(DelZero(P));
 DelZeroP(P);
 Label2.Caption := IntToStr(P);
end;