procedure TFormProhlizet.BtEraseClick(Sender: TObject);
begin
    for x := i to 99 do begin
        Tpacient[i] = Tpacient [i+1];
    end;

    pacos[100].Jmeno := "";
    pacos[100].Prijmeni := "";
    pacos[100].Pokoj := "";
    pacos[100].Leky := "";
    pacos[100].Doba := "";

end;

[Error] Unit3.pas(86): '(' expected but '[' found