function TRamazan.tamamla(yaziyi: string; sayiyi: integer): string;
var sayix:integer;yazix:string;
begin
yazix:='';
if length(yaziyi)<sayiyi then
begin
for sayix:=1 to sayiyi-length(yaziyi)do
yazix:=yazix+'0';
end;
result:=yazix+yaziyi;
end;