🚀 go-pugleaf

Kod:

program nos_text_mode;


uses
nos_types,crt,SysUtils;

var
f:file of TConfig; //plik z danymi
temp:TConfig;  //zmienna pomocnicza
temp_boolean:boolean;
temp_char:char;
f2:longint;



BEGIN
if FileExists('config.dat') then
  begin
    assign(f, 'config.dat');
    reset(f);
    read(f,temp);
    close(f);
    writeln('dane konfiguracyjne pomyslnie wczytane');
    writeln('aaaaaaaa');
  end;
  writeln('bbbbbbbb');

END.

Program daje ciekawe wyniki:

dane konfiguracyjne pomyslnie wczytane
aaaaaaaa
bbbbbbbb
An unhandled exception occurred at $08049761 :
                                              EAccessViolation :
Access violation
  $08049761
              $080566B5
                        $080481C2  P$NOS_TEXT_MODE_finalize_implicit,
of nos_text_mode.pas
              $080572B2
                        $08057485

nos_types zawiera:

TUser=record
        id:string;
      end;
TConfig=record
          ftp_user:string;
          ftp_pass:string;
          upload_ip:string;
          download_url:string;
          user:TUser;
        end;


Program kompiluje pod linuxem (ubuntu 8.10) poleceniem:
ppc386  -gl nos_text_mode.pas

Co zrobic aby program konczyl sie normalnie?