fix #1237

Parsers/PascalABCParserNewSaushkin/ABCPascalParserTools.cs

@@ -224,6 +224,8 @@ namespace PascalABCSavParser
                 return string.Format(prefix + StringResources.Get("EXPECTEDBEGIN"), "'" + yytext + "'");
 
             var MaxTok = tokens.First();
+            if (yytext != null && yytext.ToLower() == "record" && MaxTok == "tkSealed")
+                return StringResources.Get("WRONG_ATTRIBUTE_FOR_RECORD");
 
             var ExpectedString = StringResources.Get("EXPECTED{1}");
 

bin/Lng/Eng/PascalABCParser.dat

@@ -8,6 +8,7 @@ EXPECTED{1}=expected {1}
 EXPECTEDR{1}=expected {1}
 EXPECTEDF{1}=expected {1}
 EXPECTEDBEGIN=declaration section or begin expected
+WRONG_ATTRIBUTE_FOR_RECORD=abstract, sealed, auto and static are not allowed for record
 
 WITHOUT_INIT_AND_SIZE=Size of dynamic array is passed
 

bin/Lng/Rus/PascalABCParser.dat

@@ -8,7 +8,7 @@ EXPECTED{1}=ожидалось {1}
 EXPECTEDR{1}=ожидался {1}
 EXPECTEDF{1}=ожидалась {1}
 EXPECTEDBEGIN=ожидался раздел описаний или begin
-
+WRONG_ATTRIBUTE_FOR_RECORD=Модификаторы abstract, sealed, auto и static недопустимы для record
 WITHOUT_INIT_AND_SIZE=Пропущен размер динамического массива
 
 OPERATOR_NOT_IMPLEMET_TO_THIS_OPEAND_TYPE=Операция не применима к операндам данного типа

bin/Lng/Ukr/PascalABCParser.dat

@@ -8,6 +8,7 @@ EXPECTED{1}=очікувалося {1}
 EXPECTEDR{1}=очікувався {1}
 EXPECTEDF{1}=очікувалася {1}
 EXPECTEDBEGIN=очікувався розділ опису або begin
+WRONG_ATTRIBUTE_FOR_RECORD=Модификаторы abstract, sealed, auto и static недопустимы для record
 
 WITHOUT_INIT_AND_SIZE=Пропущений розмір динамічного масиву