Как записать типизированый файл в паскале

program proba1; {imya programmy}
uses crt;     {modul voda/vyvoda}
type ff=file of real; {deklaracija tipa fajla veshestvennyh 4isel}
var                            {obyavlenie peremennyh}
m:array[1..100] of real; f:ff; i,k,n,t:byte;
begin     {telo programmy}
clrscr;   {o4istka ekrana}
write('vvedite koli4estvo cyfr, kotorye vy hotite pomestit v fajle-> '); {ustanavluem ko - vo cyfr v fajle}
read(n);
assign(f,'c:\1.txt'); {fajlovaja peremennaja svyazyvaetsya s imenem fajla}
rewrite(f);   {otkryvaem fajl dlya zapisi}
for i:=1 to n do   {vvodim dannye}
begin
write('vvedite cyfru-> ');
readln(m[i]);
write(f,m[i]);
end;
close(f);  {zakryvaem fajl}
reset(f);   {otkryvaem fajl dlya 4tenija}
while not eof(f) do       {poka ne nastupil konec fajla}
begin             {vypolnyaem}
read(f,m[i]); {4itaem sledujushuju komponentu fajla}
write(f,m[i]);            {vyvodim na ekran}
end;
close(f);       {zakryvaem fajl}
assign(f,'c:\1.txt');{fajlovaja peremennaja svyazyvaetsya s imenem fajla}
reset(f); {otkryvaem fajl dlya 4tenija}
k:=0; t:=0; {s4et4iki obnulyaem}
for i:=2 to n-1 do    {so 2 po predposlednij elementy vypolnyaem}
begin
if(m[i]<m[i-1]) and (m[i]<m[i+1]) then inc(k); {esli element menshyj po otnosheniju k sosedyam, to k min +1}
if(m[i]>m[i-1]) and (m[i]>m[i+1]) then  inc(t);
end;
write('koli4estvo lokalnyh min= ', k,', lokalnyh max= ',t);{vyvod rezyltata}
readln;
end.