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

Формулировка задачи:

в 52 строке выдаёт ошибку "встречено 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.

Решение задачи: «Встречено 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.

Объяснение кода листинга программы

Введенные данные:
- N - количество строк для ввода (целое число)
- s - строка для проверки (строка из 100 символов)
- game - массив из 12 строк (array[1..12] Of string)
- Kolmas - массив из 12 целых чисел (array[1..12] Of longint)
Чтение количества строк для ввода:
- readln(N) - ввод целого числа
Проверка строк в массиве game:
- For i:=1 To 12 Do
- Begin
- If game[i]<>s Then
- Begin
- For j:=1 To 12 Do
- Begin
- If game[i]='' Then
- game[i] := s;
- End;
- End;
- End;
Увеличение счетчика в массиве Kolmas:
- For k:=1 To 12 Do
- Begin
- If game[k]=s Then
- Begin
- Kolmas[k] := Kolmas[k]+1;
- End;
- End;
Сортировка массива game и Kolmas:
- Repeat
- Begin
- 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;
- Until b = false;
Вывод отсортированных значений:
- For i:=1 To 12 Do
- Begin
- If a[i]<>a[i+1] Then
- Begin
- writeln(game[i],' ',kolmas[i]);
- End;
- 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
- Begin
- writeln(game[i],' ',kolmas[i]);
- End; *End;