Fix 2022 misidentified day0

2022/city/d0/texte/texte.pas

@@ -0,0 +1,25 @@
+Program Texte;
+var N : integer;
+    C : char;
+    T : string;
+    Intrare, Iesire : text;
+    L : integer; { lungimea textului T }
+    i : integer; { contor penru parcurgerea textului T }
+begin
+   { Citirea datelor de intrare }
+   assign(Intrare, 'texte.in');
+   reset(Intrare);
+   readln(Intrare, C);
+   readln(Intrare, T);
+   close(Intrare);
+   { Calcularea numarului de aparitii }
+   N:=0;
+   L:=length(T);
+   for i:=1 to L do
+      if C=T[i] then N:=N+1;
+   { Scrierea datelor de iesire }
+   assign(Iesire, 'texte.out');
+   rewrite(Iesire);
+   writeln(Iesire, N);
+   close(Iesire);
+end.