Нетипизированный файл, сжимание string до реального размера

[бипбип]

Нетипизированный файл
типа s:string[255];
i:integer;
Надо чтобы при добавлении записи в файл, было сжимание string до реального размерапомогите пожалуйста)если можно то и считываем)тоже

[Utkin]

Что значит до реального размера?

[Arigato]

Пример работы:

const n = 4;
var f: file;
    s: string[255];
    len: byte;
    i: integer;
begin
  assign (f, 'a.txt');
  rewrite (f, 1);
  for i := 1 to n do
  begin
    write ('S[', i, '] = ');
    readln (s);
    blockwrite (f, s, length (s) + 1);
  end;
  close (f);
  writeln;
  reset (f, 1);
  while not eof (f) do
  begin
    blockread (f, len, 1);
    setlength (s, len);
    blockread (f, s[1], len);
    writeln (s);
  end;
  close (f);
end.