Pascal

[Nadjuha]

Здрасти, помогите єто реализовать в Паскале пожайлуста. Есть куча таких файлов, в этой директории D:\dan\cXX\fnХХNNDD.dbf
допустим:
ХХ - номер цеха
NN - месяц
DD - год
Мне нужно например
writelen('ВВедите № цеха=');
readln(cex);
Вы вводите например 9
и плучается так что директоря становиться следущая D:\dan\c09\fn09NNDD.dbf
аналогично с месяцем и годом.

[Makarov]

program baza;
uses crt;
var
  s,cex,mes,god:string;
function preob(stroka:string):string;
var
  a:byte;
  code:word;
begin
  preob:='';
  a:=0;
  val(stroka,a,code);
  if (a<10) then preob:='0'+stroka
  else preob:=stroka;
end;
begin
  clrscr;
  s:='D:\dan\';
  writeln('Vvedite cex');
  readln(cex);
  cex:=preob(cex);
  writeln('Vvedite mesyac');
  readln(mes);
  mes:=preob(mes);
  writeln('Vvedite god');
  readln(god);
  god:=preob(god);
  s:=s+cex+'\fn'+cex+mes+god;
  writeln(s);
  readln;
end.

[OLEG'arh]

xx,nn,dd,s:string;

xx:='09';
nn:='11';
dd:='08';
s:='D:\dan\c'+xx+'\fn'+xx+nn+dd+'.d bf'
chdir(s);