ubuntu kernelversion number/de

uses
  SysUtils, ...;

  ...

function funLeseDatei: string;
var
  txtDatei: Textfile;
begin
  Assignfile(txtDatei, '/proc/version'); // weist txtDatei die Datei zu
  reset(txtDatei); // oeffnet die Datei zum Lesen
  readln(txtDatei, Result); // liest die erste Zeile
  Closefile(txtDatei); // schliesst die Datei
end;

function funKernelversionsNummer: string;
var
  intI: integer = 0;
  intZaehler: integer = 0;
  strProcVersion: string = '';

begin

  Result := '';

  strProcVersion := funLeseDatei();
  if strProcVersion = '' then
    exit;

  for intI := 1 to Length(strProcVersion) do
  begin

    if (strProcVersion[intI] = '-') then
    begin
      intZaehler := intZaehler + 1;
      if intZaehler > 1 then break;
    end;

    if (strProcVersion[intI] in ['0'..'9', '.', '-']) then
      Result := Result + strProcVersion[intI];

  end;

end;
  
...

program kerninfo(input, output, stderr);

uses
    // baseUnix for fpUname
    baseunix,
    // sysutils for format
    sysutils,
    // gettext for internationalization
    gettext;

resourcestring
    unameFailure  = 'uname(2) failed';
    releaseNumber = 'release number: %0:s';
    versionNumber = 'version number: %0:s';

var
    kernelInfo: utsName;
begin
    translateResourceStrings('./' + applicationName() + '.%s.mo');
    
    if fpUname(kernelInfo) <> 0 then
    begin
        writeLn(stderr, unameFailure);
        halt(1);
    end;
    
    writeLn(format(releaseNumber, [kernelInfo.release]));
    writeLn(format(versionNumber, [kernelInfo.version]));
end.