Встречено end, а ожидалось ';'

var
N,i,j,k,kol,x:integer;
c:char;
s:string[100];
b:boolean;
game:array[1..12] of string;
Kolmas:array[1..12] of longint;
begin
readln(N);
for i:=1 to N do
   begin
   readln(s);
   for i:=1 to 12 do
     begin 
     if game[i]<>s then
      for j:=1 to 12 do begin
      if game[i]='' then
      game[i]:=s;
      end;
     for k:=1 to 12 do begin
     if game[k]=s then
     Kolmas[k]:=Kolmas[k]+1;
     end;
   end;
   repeat
   b:=true;
for i:=1 to N-1 do 
   begin
   if Kolmas[i]>Kolmas[i+1] then
   begin
   j:=Kolmas[i];
   Kolmas[i]:=Kolmas[i+1];
   Kolmas[i+1]:=j;
   x:=game[i];
   game[i]:=game[i+1];
   game[i+1]:=x;
   b:true;
   end;
   end;
 for i:=1 to 12 do 
 begin
 if a[i]<>a[i+1] then
 writeln(game[i],' ',kolmas[i]);
 if a[i]=a[i+1] then
 begin
 writeln(game[i],' ',kolmas[i]);
 writeln(game[i+1],' ',kolmas[i]);
 end;
 if a[i]=a[i+1]=a[i+2] then
 writeln(game[i],' ',kolmas[i]);
 end;
 end.

Var 
   N,i,j,k,kol,x:  integer;
   c:  char;
   s:  string[100];
   b:  boolean;
   game:  array[1..12] Of string;
   Kolmas:  array[1..12] Of longint;
Begin
   readln(N);
   For i:=1 To N Do
   Begin
      readln(s);
      For i:=1 To 12 Do
      Begin
         If game[i]<>s Then
            For j:=1 To 12 Do
            Begin
               If game[i]='' Then
                  game[i] := s;
            End;
         For k:=1 To 12 Do
         Begin
            If game[k]=s Then
               Kolmas[k] := Kolmas[k]+1;
         End;
      End;
      Repeat
         b := true;
         For i:=1 To N-1 Do
         Begin
            If Kolmas[i]>Kolmas[i+1] Then
            Begin
               j := Kolmas[i];
               Kolmas[i] := Kolmas[i+1];
               Kolmas[i+1] := j;
               x := game[i];
               game[i] := game[i+1];
               game[i+1] := x;
               b:  true;
            End;
         End;
         For i:=1 To 12 Do
         Begin
            If a[i]<>a[i+1] Then
               writeln(game[i],' ',kolmas[i]);
            If a[i]=a[i+1] Then
            Begin
               writeln(game[i],' ',kolmas[i]);
               writeln(game[i+1],' ',kolmas[i]);
            End;
            If a[i]=a[i+1]=a[i+2] Then
               writeln(game[i],' ',kolmas[i]);
         End;
      End.