Program tombok;
Uses Crt, Dos;

Const max = 3;

Var szamlalo: String; {ebben taroljuk el a konvertalt erteket}
    tomb    : Array[0..max]Of Text; {file valtozokat tartalmazo tomb}
    i       : Integer; {ciklus valtozo}
    fnev1   : String;{file nev elso resze}
    fnev2   : String;{file nev utolso resze}
    fnev3   : String;{teljes nev}

Begin {program_torzs}
  ClrScr;

  fnev1:= 'tomb[';  {file nev elso resze}
  fnev2:= '].txt';  {file nev utoso resze}

  For i:=0 To max Do Begin
    Str(i, szamlalo);  {i-t stringge konvertalom, szamlalo-ban taroljuk el}
    fnev3:= fnev1 + szamlalo + fnev2; {file nev osszeillesztese}
    Assign(tomb[i], fnev3);  {osszerendeles}
    Rewrite(tomb[i]); {a file-ok letrehozasa}
    Close(tomb[i]);   {es lezerasa}
  End;



End.