[vankai14]

Кусок кода, где создается файл F и в него записываются случайные числа. при компиляции ошибка

[dcc32 Error] Unit1.pas(86): E2066 Missing operator or semicolon

ругается именно на CloseFile(f);

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
x16,x161:byte; toEdit2:string;

begin    randomize;
AssignFile(f, 'key.txt');
rewrite(f);

Edit2.Text:='';
for i:=0 to 9 do
    begin
    key[i]:=random(255);
    writeln(f, key[i]);
    //отображение ключа в 16-ричной системе ->
    x16:=key[i] div 16;
    x161:=key[i] mod 16;
    if (x16 < 10) then toEdit2:=inttostr(x16)
    else case x16 of
         10: toedit2:='A';
         11: toedit2:='B';
         12: toedit2:='C';
         13: toedit2:='D';
         14: toedit2:='E';
         15: toedit2:='F';
         end;
    if (x161 < 10) then toEdit2:=toedit2 + inttostr(x161)
    else case x161 of
         10: toedit2:=toedit2 + 'A';
         11: toedit2:=toedit2 + 'B';
         12: toedit2:=toedit2 + 'C';
         13: toedit2:=toedit2 + 'D';
         14: toedit2:=toedit2 + 'E';
         15: toedit2:=toedit2 + 'F';
         end;
    Edit2.Text:=Edit2.Text + '$' + toedit2 + ' ';

    end;   // <- отображение ключа в 16-ричной системе
 closefile(f);
end;

Админ: не забываем про оформление кода, иначе последуют санкции!