[kisska89]

пожалуйста напишите процедуру для пункта меню 'сохранить' заметьте не 'сохранить как'
type
Tzap=record
pod:string[100];
aud:string[5];
tel:string[8];
dol:string[50];
fam:string[20];
ima:string[15];
otc:string[20];
end;
var
zap:tzap;
filezap:file of tzap;
информация берется из стринггрида...