begin
v:=62552;
s:=edt3.text+'.'+edt4.text;
AssignFile(writef,s);
Rewrite(writef);
for i:=1 to ((StrToInt(edt2.text) div 2) + (StrToInt(edt2.text) mod 2)) do // так вычисляем сколько раз по 2 байта записать файл
write(writef,v);
Closefile(writef);
end;