mengganti variabel global S bertipe string menggunakan fungsi

program Project5string;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  SysUtils;

procedure Foo(var S: Openstring);
begin
  Writeln('S length :',Length(S)); { 5 }
  Writeln('S high ', High(S)); { 10 }
  Writeln('S MEMAKAN MEMORY KOMPUTER SEBESAR ', SizeOf(S)); {  11 bYTES }
  Writeln('S length :',Integer(S[0])); { 5 }
  //Writeln(S[1]); { C }
  S[1] := 'T';    // isi variabel S poisi ke satu diganti T
end;

var
  S: String[10];    // DEFINI VARIABEL s BERTIPE sTRING

begin try
  S := 'Corfu';
  Writeln('sebelum memanggil fungsi Foo berisi ',S[1]);
  Foo(S);    // memanggil fungsi Foo untuk mengubah isi S
  Writeln(' setelahnya berisi ',S[1]); { akan menampilkan huruf T bukan C lagi }
  Readln;

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.