Перевести код на Делфи

[Superlotles]

Переведите,пожалуста, этот код на Delphi

#include "stdafx.h"
#include <conio.h>
using namespace std;
void function (int *p)
{
*p=*p*2;
}
int main(){
        int a;
        a=5;
        cout << "a= " << a << endl;
        function(&a);
        cout << "a= " << a << endl;
        return 0;
}

[kakawkin]

обьясни что выполняет программа и я напишу

[RUSt88]

программа умножает число на 2 и возвращает результат по указателю

program P;

procedure func(var a: integer)
begin
    a := a * 2;
end;
var
    a: integer;
begin
    writeln("a = ", a);
    func(a);
    writeln("a = ", a);
    readln;
end.

[Superlotles]

Мне нужно именно на Delphi и дословно. Я сравниваю 2 языка: Delphi и C++, на C++, дошел до указателей, на C++ так

void function (int *p)

,
а на Delphi что то не получается:

{$R *.dfm}
function (p:^integer):integer;

[RUSt88]

void - это НЕ функция, аналог процедуры на делфи

я тебе правильно написал, обычно так и делают

ну вот тебе аналог

program P;

type
    PInt = ^Integer;
  
var
    a: integer;
    p: PInt;

procedure F(var p: PInt);
begin
  p^ := p^ * 2;
end;   
    
begin
    a := 5;
    writeln("a = ", a);
    p := @a;
    F(p);
    writeln("a = ", a);
    readln;
end.

[eoln]

Сообщение от RUSt88

program P;

type
    PInt = ^Integer;
  
var
    a: integer;
    p: PInt;

procedure F(var p: PInt);
begin
  p^ := p^ * 2;
end;   
    
begin
    a := 5;
    writeln("a = ", a);
    p := @a;
    F(p);
    writeln("a = ", a);
    readln;
end.

Чуть покритикую
"procedure F(var p: PInt);". Так как передаётся адрес, а изменяется данные по адресу, то возвращать адрес обратно нет смысла. Более того, убрав var, можно напрямую подставлять адрес в функцию.

program P;

type
    PInt = ^Integer;
  
var
    a: integer;

procedure F(p: PInt);
begin
  p^ := p^ * 2;
end;   
    
begin
    a := 5;
    writeln('a = ', a);
    F(@a);
    writeln('a = ', a);
    readln;
end.

Ну и в writeln(" кавычки одинарные

[RUSt88]

eoln, спс, учту
а двойны кавычки - против копипаста

[russian-stalker]

А я бы так написал:

procedure func(p:pointer);
begin
 integer(p^):=integer(p^)*2;
end;

var
 a:integer;
begin
 a:=5;
 writeln('a= ', a);
 func(@a);
 writeln('a= ', a);
 readln;
end.