Почему read не вводит строку со структуры?

[WebbMan]

uses Crt;

type
 NOTE=record
  telephone_number:integer;
  date:array[1..3]of integer;
  name:string;
 end;

var a:array[1..100] of NOTE; k,i:integer;

procedure GetNote(ii:integer);
begin
 for i:=k to ii do
 begin                                                  
 writeln('Введите Имя:                   ');
 readln(a[i].Name);
 writeln('Введите номер телефона:        ');
 read(a[i].telephone_number);
 writeln('Введите введите дату рождения: ');
 read(a[i].date[1]); read(a[i].date[2]); read(a[i].date[3]);
 end; k:=k+ii;
end;

procedure PrintNote(obj:NOTE);
begin                                                    
 writeln('Имя:            ', obj.name);
 writeln('Номер телефона: ', obj.telephone_number);
 writeln('Дата рождения:  ', obj.date[1], ' ', obj.date[2], ' ', obj.date[3]);
end;


begin
k:=1;
write('Сколько элементов ввести? '); read(i);
GetNote(i);

PrintNote(a[1]);
end.

[Serge_Bliznykov]

почитайте, чем отличаются Read и ReadLn..

фактически, ответ на ваш вопрос. вам нужно
заменить read(i) на ReadLn(i) и когда ввели дату - в конце выполнить Readln

но я позволил себе ещё небольшие изменения в код внести (избавился от глобальных переменных, которые - ЗЛО!

uses Crt;

const
  maxRecord = 100;
type
  NOTE = record
    telephone_number: integer;
    date: array[1..3] of integer;
    name: string[100];
  end;

type
  ArrNote = array[1..maxRecord] of NOTE;

procedure GetNote(ii: integer; var aa: ArrNote; var k: integer);
var i: integer;
begin
  for i := k to ii do
  begin
    write('Введите Имя:                   ');
    readln(aa[i].Name);
    write('Введите номер телефона:        ');
    readln(aa[i].telephone_number);
    write('Введите введите дату рождения: ');
    read(aa[i].date[1]); read(aa[i].date[2]); readln(aa[i].date[3]);
  end;
  k := k + ii;
end;

procedure PrintNote(obj: NOTE);
begin
  writeln('Имя:            ', obj.name);
  writeln('Номер телефона: ', obj.telephone_number);
  writeln('Дата рождения:  ', obj.date[1], ' ', obj.date[2], ' ', obj.date[3]);
end;

procedure PrintAll(const aa: ArrNote; N: integer);
var i: integer;
begin
  ClrScr;
  for i := 1 to N do begin
    PrintNote(aa[i]);
    WriteLn('----------------------------');
  end;
end;

var a: ArrNote;
  k, n: integer;

begin
  k := 1;
  write('Сколько элементов ввести? ');
  readln(n);

  GetNote(n, a, k);

  PrintAll(a, n);
  Readln
end.

[WebbMan]

Всё ясно спс!

[WebbMan]

А как сделать чтение с файла и запись в файл, сразу структуры?
Почему так ругается?

uses Crt;

const
  maxRecord = 100;
type
  NOTE = record
    telephone_number: integer;
    date: array[1..3] of integer;
    name: string[100];
  end;

type
  ArrNote = array[1..maxRecord] of NOTE;

procedure GetNote(ii: integer; var aa: ArrNote; var k: integer);
var i: integer;
begin
  for i := k to ii do
  begin
    write('Введите Имя:                   ');
    readln(aa[i].Name);
    write('Введите номер телефона:        ');
    readln(aa[i].telephone_number);
    write('Введите введите дату рождения: ');
    read(aa[i].date[1]); read(aa[i].date[2]); readln(aa[i].date[3]);
  end;
  k := k + ii;
end;

procedure PrintNote(obj: NOTE);
begin
  writeln('Имя:            ', obj.name);
  writeln('Номер телефона: ', obj.telephone_number);
  writeln('Дата рождения:  ', obj.date[1], ' ', obj.date[2], ' ', obj.date[3]);
end;

procedure PrintAll(const aa: ArrNote; N: integer);
var i: integer;
begin
  ClrScr;
  for i := 1 to N do begin
    PrintNote(aa[i]);
    WriteLn('----------------------------');
  end;
end;

var a: ArrNote;
  k, n, flag: integer;
  f: file;
begin
  k := 1; {flag:=10;}
 { while(flag <> 0)
  writeln(1. Ввести данные:);
  writeln(2. Вывести данные:);
  writeln(3. );
  writeln(4. );}
  

  Assign(f, 'base_pas');
  Reset(f);
  Read(f, ArrNote);
  
  write('Сколько элементов ввести? ');
  readln(n);
  
  GetNote(n, a, k);

  PrintAll(a, n);
  Readln
end.

[WebbMan]

как сделать типизированный файл на структуру NOTE?

[Serge_Bliznykov]

во-первых, вам нужно использовать не абстрактный f : file, а строго ТИПИЗИРОВАННЫЙ файл! (это файл ОПРЕДЕЛЁННОГО типа.

во-вторых, можно выбрать два подхода.
1-й (рекомендую). каждый элемент файла - это ОДНА запись типа NOTE. Это позволит эффективно читать/писать только НУЖНУЮ запись.
Это подход не зависит от размерности массива в программе. Её можно изменять так, как удобно (и даже использовать динамические структуры)
именно такой подход и используется в подавляющем большинстве случаев использования типизированных файлов!

вот пример, как можно записать ваш массив в файл такого типа:

var
   f : file of NOTE;
...
  Assign(f, 'base_pas.bin'); {расширение не обязательно, 
         но я рекомендую придумать какое-нибудь типа .DAT или .BIN или .NOT и т.д. 
         исключительно для удобства при просмотре файловой папки}  

  Rewrite(f); {перезаписали файл. всё что было - стёрли и начали писать с нуля}
 
  for i:=1 to N do
    Write(f, A[i] );
...
  Close(f); {обязательно закрыли файл, чтобы не потерять записанное}

читать в массив - точно таким же образом можно.



2-й. (не рекомендую). Вы именно его и пытались реализовать.
назначаете файл - как типизированный, где ОДИН элемент - это ЦЕЛИКОМ весь массив:

var f : file of ArrNote;

удобства. записать (и прочитать ) ВЕСЬ массив ЦЕЛИКОМ можно ОДНОЙ строчкой кода.
НЕУДОБСТВА!. Если изменить размер массива, тогда прочитать записанный ранее файл будет НЕЛЬЗЯ (ведь тогда размер структуры изменяется). Даже если у вас в массиве используется один элемент (N равно 1), на диске всё развно запишется 100 (maxrecord) элементов типа NOTE.

короче, прежде чем Вы выберёте второй способ использования типизированного файла, рекомендую трижды подумать - точно ли это Вам надо!