Lies doch mal die Antworten richtig:
Delphi-Quellcode:
procedure Record_ADD_Real(R:real);
begin
setlength(R[0].wr , 1)
end;
In Deinem Code übergibtst Du R als Real, und auf eine Real kannst Du Setlength nicht verwenden. Der Lokale Parameter ist in Deiner Funktion sichtbar und "überschreibt" die ausserhalb deklarierte Variable. Richtig wäre:
Delphi-Quellcode:
procedure Record_ADD_Real(RealNumber : real);
begin
setlength(R[0].wr , length(R[0])+1) ;
R[0]wr[High(wr)] := RealNumber;
end;
Und ändere Deine Variablennamen sowie die Einrückung, wie von shmia vorgeschlagen.