Anonymní profil Marek – Programujte.com

zdravim

preco toto nefunguje?

dakujem

program Project1;

type superType = record
  foo: integer;
end;

var
  bar: superType;

procedure plusone(a: superType);
begin
  a.foo := a.foo + 1;
end;

begin
  bar.foo := 1;
  plusone(bar);
  writeln(bar.foo);
  readln;
end.

ocakavany vystup 2 ale je 1