program p5;
const
  n=1000;
type
  auto = record
    number: string;
    surname: string;
    brand: string;
  end;
  array_record = array [1..n] of auto;
var
  a: auto;
  //b: array_record;
  i,j: integer;
procedure read_from_file;
  var
    f: text;
    ch: char;
  begin
    assign(f, 'C:\1.txt');
    reset(f);
    while ch<>'.' do
      begin
        while ch<>' ' do
          begin
            i:=i+1;
            read(f,ch);
            a.number[i]:=ch;
          end;
        i:=0;
        while ch<>' ' do
          begin
            i:=i+1;
            read(f,ch);
            a.surname[i]:=ch;
          end;
        i:=0;
        while (ch<>',') or (ch<>'.') do
          begin
            i:=i+1;
            read(f,ch);
            a.brand[i]:=ch;
          end;
        i:=0;
      end;
    close(f);
  end;
begin
  read_from_file;
  writeln(a.number);
end.

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


строка 28 : Ошибка времени выполнения: Индекс находился вне границ массива.