type
  auto = record
    number: string;
    surname: string;
    brand: string;
  end;
var
  a: auto;
  f: text;
  ch: char;
  i: integer;
  s: string;
begin
  assign(f,'C:\1.txt');
  reset(f);
  i:=0;
  while (ch<>',') or (ch<>'.') or (ch<>' ') do
    begin
      i:=i+1;
      read(f,ch);
      s[i]:=ch;
    end;
  a.number:=s;
  writeln(a.number);
end.

файл:
4568 файл правка,
1234 формат вид.