diff --git a/CodeExamples/Typeclasses/TypeClassErrors/tc_err4.pas b/CodeExamples/Typeclasses/TypeClassErrors/tc_err4.pas
index d0119bfc0..e3112d1e0 100644
--- a/CodeExamples/Typeclasses/TypeClassErrors/tc_err4.pas
+++ b/CodeExamples/Typeclasses/TypeClassErrors/tc_err4.pas
@@ -1,8 +1,13 @@
 type 
-  tc1[T] = typeclass end;
+  tc1[T] = typeclass
+  end;
   
-  I1=interface end;
-  tc1[I1] = instance end;//не должно компилироваться
+  I1=interface
+  end;
+  
+  tc1[I1] = instance
+  end;//не должно компилироваться
 
 begin
+
 end.
diff --git a/CodeExamples/Typeclasses/TypeClassErrors/tc_err5.pas b/CodeExamples/Typeclasses/TypeClassErrors/tc_err5.pas
index e3112d1e0..58db97be4 100644
--- a/CodeExamples/Typeclasses/TypeClassErrors/tc_err5.pas
+++ b/CodeExamples/Typeclasses/TypeClassErrors/tc_err5.pas
@@ -1,13 +1,9 @@
-type 
-  tc1[T] = typeclass
-  end;
+type
+  tc1[T]=typeclass end;
   
-  I1=interface
+  tc1[integer]=instance
+    function f1: integer := 1;
   end;
-  
-  tc1[I1] = instance
-  end;//не должно компилироваться
 
 begin
-
 end.