Встречено 'uses', а ожидался оператор

Unit Unit1;
 
interface
 
uses System, System.Drawing, System.Windows.Forms;
 
type
  Form1 = class(Form)
    procedure toolStripMenuItem3_Click(sender: Object; e: EventArgs);
    procedure toolStripMenuItem12_Click(sender: Object; e: EventArgs);
    procedure toolStripMenuItem4_Click(sender: Object; e: EventArgs);
  {$region FormDesigner}
  private
    {$resource Unit1.Form1.resources}
    menuStrip1: MenuStrip;
    toolStripMenuItem1: ToolStripMenuItem;
    toolStripMenuItem3: ToolStripMenuItem;
    toolStripMenuItem4: ToolStripMenuItem;
    toolStripMenuItem5: ToolStripMenuItem;
    toolStripMenuItem6: ToolStripMenuItem;
    toolStripMenuItem7: ToolStripMenuItem;
    toolStripMenuItem8: ToolStripMenuItem;
    toolStripMenuItem9: ToolStripMenuItem;
    toolStripMenuItem10: ToolStripMenuItem;
    toolStripMenuItem11: ToolStripMenuItem;
    toolStripMenuItem2: ToolStripMenuItem;
    toolStripMenuItem12: ToolStripMenuItem;
    {$include Unit1.Form1.inc}
  {$endregion FormDesigner}
  public
    constructor;
    begin
      InitializeComponent;
    end;
  end;
 
implementation
 
 
 
 
 
procedure Form1.toolStripMenuItem4_Click(sender: Object; e: EventArgs);
begin
uses crt;
const n=3;
type mas=array[1..n] of integer;
var i:integer;
    a,b:mas;
    dlinA,dlinB:real;
begin
writeln ('Введите вектор А');
for i:=1 to n do read (a[i]);
writeln ('Введите вектор B');
for i:=1 to n do read (b[i]);
clrscr;
write('Вектор A={');
for i:=1 to n do write(a[i]:5);
writeln('    }');
writeln;
write('Вектор B={');
for i:=1 to n do write(b[i]:5);
writeln('    }');
 
dlinA:=sqrt(sqr(a[1])+sqr(a[2])+sqr(a[3]));
dlinB:=sqrt(sqr(b[1])+sqr(b[2])+sqr(b[3]));
writeln;
writeln('Длина вектора А=', dlinA:4:1);
writeln('Длина вектора B=', dlinB:4:1);
if dlinA=dlinB then writeln('Длины равны') else writeln('Длины не равны');
repeat until KeyPressed;
  
end;
 
end.