Problem z konsola

Hej! chce w konsoli zrobic ze jak napisze $copy C:\fff.ini D:\fff.ini to za pomoca procedury copyfile('xxx', 'yyy', True) przekopiowal sie plik fff.ini z C:\ do D:\ to jest aplikacja konsolowa. Zgory dziekuje za pomoc...

procedure rozdziel(tekst_do_rozdzielenia : string);
var
    i, j : integer;
    wyrazy_po_rozdzieleniu : array[1..50] of string[50];
    licznik : integer;
begin
    for i := 1 to 50 do wyrazy_po_rozdzieleniu[i] := '';

    licznik := 1;
    j := 1;

    for i := 1 to length(tekst_do_rozdzielenia) do begin
        if tekst_do_rozdzielenia[i] <> ' ' then wyrazy_po_rozdzieleniu[j] := wyrazy_po_rozdzieleniu[j] + tekst_do_rozdzielenia[i];
        if tekst_do_rozdzielenia[i] = ' ' then begin
            licznik := licznik + 1;
            j := j + 1;
        end;
    end;

    if wyrazy_po_rozdzieleniu[1] = 'copy' then 
    copyfile(PChar(wyrazy_po_rodzieleniu[2], PChar(wyrazy_po_rozdzieleniu[3]), True);
end;

Funkcja trochę prymitywna, bo pisałem ją dawno temu, tylko teraz dostosowałem do twoich potrzeb. Powinno działać. Jako argument tej procedury dajesz tą komendę copy coś.tam coś.tam.

//DOPISANE
Rzeczywiście były błędy, dzięki Dryo.