diff --git a/Main.pas b/Main.pas
index 7cc65ed..d5e4608 100644
--- a/Main.pas
+++ b/Main.pas
@@ -976,14 +976,14 @@ begin
   end;
 end;
 
-// I V  X  L   C   D    M    G     T     P      E
+// I V  X  L   C   D    M    A     T     P      E
 // 1 5 10 50 100 500 1000 5000 10000 50000 100000
 function IntToRoman(n: Integer): String;
 begin
   while Rome(n, 10000, Result, 'T') do ;
   Rome(n, 9000, Result, 'MT');
-  Rome(n, 5000, Result, 'G');
-  Rome(n, 4000, Result, 'MG');
+  Rome(n, 5000, Result, 'A');
+  Rome(n, 4000, Result, 'MA');
   while Rome(n, 1000, Result, 'M') do ;
   Rome(n, 900, Result, 'CM');
   Rome(n, 500, Result, 'D');
@@ -1004,8 +1004,8 @@ begin
   Result := 0;
   while UnRome(n, 10000, Result, 'T') do ;
   UnRome(n, 9000, Result, 'MT');
-  UnRome(n, 5000, Result, 'G');
-  UnRome(n, 4000, Result, 'MG');
+  UnRome(n, 5000, Result, 'A');
+  UnRome(n, 4000, Result, 'MA');
   while UnRome(n, 1000, Result, 'M') do ;
   UnRome(n, 900, Result, 'CM');
   UnRome(n, 500, Result, 'D');
diff --git a/dist/pq6-4.zip b/dist/pq6-4.zip
index d5c736b..cc59a81 100644
Binary files a/dist/pq6-4.zip and b/dist/pq6-4.zip differ
diff --git a/pq.exe b/pq.exe
index cbfe685..d4e76b5 100755
Binary files a/pq.exe and b/pq.exe differ