Дан файл ТV, содержащий сведения о программах телепередач на неделю

program one;
uses Crt;
           type tv=record
                     Day: string;
                     Time : real;
                     Canal: integer;
                     Vid: string;
                     Name: string;
end;
var
                 a,h: text;
                 z: file of tv;
                 b: array[1..50] of tv;
                 s: tv;
                 c,d: byte;
                 i,n: integer;
                 o,p,k: string;
                 u: integer;
                 r: real;
 
Procedure Tip_File;
begin
                reset(a);
                rewrite(z);
                i:=0;
                while not eof(z) do
                       begin
                       i:=i+1;
                              readln(a,b[i].Day);
                              readln(a,b[i].Time);
                              readln(a,b[i].Canal);
                              readln(a,b[i].Vid);
                              readln(a,b[i].Name);
                              write(z,b[i]);
                       end;
                n:=i;
               close(a);
               close(z);
               writeln('Ваши значения введены в тип файл!');
                readkey;
end;

procedure prosm;
begin
reset(z);
while not eof(z) do begin
read(z,s);
writeln(s.Day);
writeln(s.Time);
writeln(s.Canal);
writeln(s.Vid);
writeln(s.Name);
writeln;
end;
readkey;
end;