Zada4ata e slednata: V daden magazin vremenno se predlagat sre6ty zapla6tane knigi i pomagala.Da se napi6e programa,koqto
1.suzdava fail sudurja6t informaciq za ime na,4oveka vzima6t knigata,data na vzimane na knigata,zaglavie na knigata
2. otpe4atva na ekrana horata zadurjali knigite pove4e ot K dni
3.otpe4atva imenata na horata vzeli nqkoq kniga,imeto na knigata i datata na vzemane na knigata,sortirani po data na vzemane

otnosno 1. i 3. poduslovie sam napisala slednoto:

program z1;
type info=record
ime:string;
kniga:string;
data:real;
end;
t=file of info;
var s:info;
f:t;
procedure readrec(var s:info);
begin
with s do
begin
write('ime=');
readln(s.ime);
write('kniga=');
readln(s.kniga);
write('data=');
read(s.data);
end;
end;
procedure createfile(var f:t);
begin
rewrite(f);
readrec(s);
while not eof(f) do
begin
readln;
write(f,s);
readrec(s);
end;
close(f);
end;
procedure writerec(s:info);
begin
with s do
write(ime,kniga:15,data:10);
end;
procedure sort(var f:t);
var i,j,br,n: integer;
a:array[1..20] of info;
x:real;
begin
reset(f);
br:=0;
while not eof(f) do
begin
read(f,s);
br:=br+1;
a[br]:=s;
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].data>a[j].data then
begin
x:=a[i].data;
a[i].data:=a[j].data;
a[j].data:=x;
end;
for i:=1 to br do
writerec(s);
end;
begin
assign (f,'a.dat');
createfile(f);
sort(f);
end.


1. e vqrno no 3. mislq 4e ima nqkakva gre6ka i ne trygva - a za 2. mi e trydno da se orientiram ... Bihte li mi pomognali.... Shte 4akam otgovor...Do skoro...