{$codepage utf8}
uses
Windows;
Type
CONSOLE_FONT_INFOEX = record
cbSize : ULONG;
nFont : DWORD;
dwFontSizeX : SHORT;
dwFontSizeY : SHORT;
FontFamily : UINT;
FontWeight : UINT;
FaceName : array [0..LF_FACESIZE-1] of WCHAR;
end;
function SetCurrentConsoleFontEx(hConsoleOutput: HANDLE; bMaximumWindow: BOOL;
var CONSOLE_FONT_INFOEX): BOOL; stdcall; external 'kernel32.dll' name 'SetCurrentConsoleFontEx';
var
New_CONSOLE_FONT_INFOEX : CONSOLE_FONT_INFOEX;
S: String;
begin
//writeln('SetDefaultCodepages unit initialization: DefaultSystemCodePage = ',DefaultSystemCodePage);
DefaultSystemCodepage := CP_UTF8;
SetConsoleOutputCP(cp_utf8);
SetTextCodepage(Output, cp_utf8);
FillChar(New_CONSOLE_FONT_INFOEX, SizeOf(CONSOLE_FONT_INFOEX), 0);
New_CONSOLE_FONT_INFOEX.cbSize := SizeOf(CONSOLE_FONT_INFOEX);
// New_CONSOLE_FONT_INFOEX.FaceName := 'Lucida Console';
New_CONSOLE_FONT_INFOEX.FaceName := 'Consolas';
New_CONSOLE_FONT_INFOEX.dwFontSizeX := 8;
New_CONSOLE_FONT_INFOEX.dwFontSizeY := 16;
SetCurrentConsoleFontEx(StdOutputHandle, False, New_CONSOLE_FONT_INFOEX);
S := 'Α α, Β β, Γ γ, Δ δ, Ε ε, Ζ ζ, Η η,Θ θ, Ι ι, Κ κ, Λ λ, Μ μ, Ν ν, Ξ ξ, Ο ο, Π π, Ρ ρ,Σ σ/ς, Τ τ, Υ υ, Φ φ, Χ χ, Ψ ψ, Ω ω.';
writeln(S);
end.