Ошибка: ожидался символ "точка с запятой"

uses crt;
const QSize = 8; { Размер очереди (сколько в неё можно положить элементов) }
var
  Q : array [1..QSize] of Integer; { Массив для хранения очереди }
  Q_Start : Integer = 1; { Указывает на голову очереди }
  Q_End : Integer = 1; { Указывает на элемент, который заполнится, когда в очередь войдёт новый элемент }
  i : integer;
 
  { = Операции с очередью = }
 
{ Очередь пуста? }
function isEmpty : Boolean;
begin
  isEmpty := Q_Start = Q_End;
end;
 
{ Положить значение в конец очереди }
procedure Put( Value : Integer );
begin
  Q[Q_End] := Value;
  Dec(Q_End);
  { Поддержка закольцованности очереди }
  if Q_End < 1 then Q_End := QSize;
end;
 
{ Забрать значение с начала очереди }
function Get : Integer;
begin
  assert( not isEmpty, 'В очереди ничего нет!');
  Get := Q[Q_Start];
  Dec(Q_Start);
  { Поддержка закольцованности очереди }
  if Q_Start < 1 then Q_Start := QSize;
end;
 
begin clrscr;
  //Writeln(isEmpty); { Выводит "TRUE" - очередь пуста }
  //Writeln(isEmpty); { Выводит "FALSE" - очередь не пуста }
  randomize;
  for i:=1 to QSIZE do
    Put(random(100)-50);
 
  for i:=1 to QSIZE do
    Writeln(Get); { Выводит "2", в очереди: 5 }
 
 
  Writeln;
     WriteLn('Лабораторна робота N5.');
     WriteLn('Завдання 2. Вивести поле Integer, якщо real від’ємне. ');
     WriteLn;
     WriteLn('Виконав студент Антоновіч В. Група ПЗ-143!');
 
end.

  Q_Start : Integer := 1; { Указывает на голову очереди }
  Q_End : Integer := 1; { Указывает на элемент, который заполнится, когда в очередь войдёт новый элемент }