type 
    palettearray=array[0..768] of byte;
VAR
   pal:palettearray;


Procedure save_pal(filename:string);
var
   pfile1:file of byte;
   num:byte;
begin
assign(pfile1,filename);
rewrite(pfile1);

for index:=0 to 768 do
BEGIN
num:=pal[index] * 4;
write(pfile1,num);
END;

close(pfile1);
end;