func hello <main>
{
   print( "Hello, World!" )
   getch()
}

[quote=Отладка D4]Подготовка к сборке проекта...
Генерация кода целевого языка
Компоновка проекта...
Command line: dcc32.exe "C:\HiAsm\4_0b172\Elements\delphi\code\Project1.dpr" "-UC:\HiAsm\4_0b172\." -Q "-EC:\HiAsm\4_0b172\
Borland Delphi  Version 12.0  Copyright (c) 1983,98 Inprise Corporation

C:\HiAsm\4_0b172\Elements\delphi\code\hiGentee.pas(219) Warning: Return value of function '_gt_ReadStr' might be undefined

C:\HiAsm\4_0b172\Elements\delphi\code\hiGentee.pas(316) Hint: Variable 'nametext' is declared but never used in 'THIGentee.SetScript'

C:\HiAsm\4_0b172\Elements\delphi\code\hiDebug.pas(25) Hint: Private symbol 'Execute' declared but never used
4513 lines, 0.08 seconds, 60228 bytes code, 2729 bytes data.
Сжатие кода...
Сборка завершена.
[/quote]

quote=Отладка FPC]Подготовка к сборке проекта...
Генерация кода целевого языка
Компоновка проекта...
Command line: fpc.exe '"C:\HiAsm\4_0b172\Elements\delphi\code\Project1.pas"' -Sd -Mdelphi '"-FEC:\HiAsm\4_0b172\"' '"-FUC:\HiAsm\4_0b172\Elements\delphi\code\units"' -FDtools\ -CX -dF_P
Free Pascal Compiler version 1.9.6 [2004/12/31] for i386
Copyright (c) 1993-2004 by Florian Klaempfl
Target OS: Win32 for i386
Compiling C:\HiAsm\4_0b172\Elements\delphi\code\Project1.pas
Compiling C:\HiAsm\4_0b172\Elements\delphi\code\hiGentee.pas
Compiling C:\HiAsm\4_0b172\Elements\delphi\code\GenteeShare.pas
GenteeShare.pas(26,2) Warning: Unsupported switch "$A"
hiGentee.pas(215,10) Warning: Function result does not seem to be set
hiGentee.pas(316,15) Note: Local variable "nametext" not used
Compiling resource C:\HiAsm\4_0b172\Elements\delphi\code\allres.res
Linking C:\HiAsm\4_0b172\Project1.exe
695 Lines compiled, 2.6 sec
Сжатие кода...
Сборка завершена.
[/quote]