Filesize

6) filesize
- udává velikost souboru v blocích

var > file;
S > string [100];
begin assign (F, ); budeme zapisovat celé řetězce S
rewrite (F,101); otevírá pro zápis, budeme zapisovat celé řetězce,
while not eof do begin - napíše počet nutných bytů, čteme z klávesnice
readln (S); (proto readln) proměnnou S, ne blockread,
blockwrite (F,S,1) chceme vypsat 1 blok do souboru F
end;
close (F);
end.

Nebo
- zde si můžeme dovolit ukládání jiných typů info – vypisujeme pouze znaky, které mají význam a zbytek vynecháme, nebudeme vypisovat všech 101 b

var F: file;
S: string [100] - to, co budeme vypisovat bude mít jinou délku
begin assign (F, );
rewrite (F,1);
while not eof do begin
readln (S);
blockwrite (F,S, length (S)+1) - do souboru F z proměnné S dáme pouze
end; okamžitou délku řetězce +1
close (F);
end.

- info o předchozích řetězcích nejsou nikde sumarizovány
- v souboru jsou nezbytné údaje k tomu, abyhcom řetězce dostali ven