Fehler bei write / writeln in eine Datei

[Chrissi91]

Delphi-Quellcode:

procedure DateiUeberschreiben(pfad: string; groesse: integer);
const
 mychar :string = ('abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789!"§$%&/()=?~+,.-{}[]²³\|*');
var
 i, a : integer;
 zeichen: Char;
 datei: file of char;
begin 
 for a := 1 to 10 do
  begin
   Assign(datei, pfad);
   rewrite(datei);
   for i := 1 to groesse do
    begin
     zeichen := copy(PChar(mychar),random(10)+1,1); // [Error] Unit1.pas(44): Incompatible types: 'Char' and 'String'
     write(datei,zeichen);
    end;
   closefile(datei);
  end;
 deletefile(form1.verzeichnis.text);
end;

Jetzt meckert er wieder egen dem Charakter, dabei habe ich doch jetzt darum PChar() gesetzt.