uses crt;
type
st10= string[10];
var
S,I,J,M:BYTE;
tus:char;
cizgi:string[80];
satir:byte
procedure cerceve (x1,x1,x2,y2,:byte);
var
k:byte
begin
gotoxy (x1,y1); write (#201);for
for :k:=x1+1 to x2-1 to write do write (#205);
write(#187);
for k:=y1+1 to y2 -1 do
begin
gotoxy (x1,k);write (#186);
gotoxy (x2,k);write (#186);
end;
gotoxy(x1,y2); write (#200);
for k: x1+1 to x2-1 do write (#200);
write (#188);
end;
type
kayit=record
ad,yazar,içerik,bev:string[30];
kad,soyad,adres,ıl,telefon;string[50];
ono,uyeno:ınteger;
Ssay,ITAR,VTAR,tar,no:string[10];
f;char;
end;
var
dosya;file of kayit;
kay;kayit;
kod;integer;
ara:string;
procedure kkayıt;
begın
assing(dosya,"kutuphan.dat");
{$i-}reset(dosya);kod:= IOresult;{$i+}
if kod <>0 then rewrite (dosya);
repeat
clrscr;
bgsc mustafa
2125975447 ıc_kara.kule@hotmail.com