Дан графический файл(картинка) "picture-1.dat". Нужно составить программу, которая создаст файл "picture-1.jpg" (поменяет расширение *.dat на *.jpg).+запросит новое имя файла.
Я составил так, но создаваемый файл ничего не отаброжает и его размер (0 байт).
Код: Выделить всё
Program convertor;
Uses crt;
const
n=1234;
kol=118;
Var directory1,directory2: string;
f,f2: file;
allsize: longint;
buf: array [1..n] of byte;
Begin
ClrScr;
Writeln('Введите директорию *.dat файла');
Read(directory1);
Writeln('Введите директорию *.jpg файла');
Read(directory2);
assign(f,directory1); reset(f);
assign(f2,directory2); rewrite(f2);
allsize:=filesize(f);
blockread(f,buf,allsize);
blockwrite(f2,buf,allsize);
close(f);
close(f2);
readkey;
end.
