Сделать ввод данных с типом record. Не считываться String

type DB = record
            Name: string; {Проблема тут}
            Cont: integer;
          end;
var kas: array [1..100] of DB;
    i,j,n: integer;
begin
  for i:=1 to 3 do
  begin
    write('Введите количество мультфильмов на ',i,' кассете: ');
    read(n);
    for j:=1 to n do
    begin
      with kas[j] do
      begin 
        write('Введите название мультфильма: ');
        read(Name);
        write('Введите продолжительность: ');
        read(cont);
      end;
    end;
    for j:=1 to n do
      writeln(kas[j].Name,' ',kas[j].Cont);
   end;
   
end.

type DB = record
            Name: string; {Проблема тут}
            Cont: integer;
          end;
var kas: array [1..100] of DB;
    i,j,n: integer;
begin
  for i:=1 to 3 do
  begin
    write('Введите количество мультфильмов на ',i,' кассете: ');
    readln(n); // Раз - обязательно
    for j:=1 to n do
    begin
      with kas[j] do
      begin 
        write('Введите название мультфильма: ');
        readln(Name); // Два - необязательно, но желательно
        write('Введите продолжительность: ');
        readln(cont); // Три - обязательно
      end;
    end;
    for j:=1 to n do
      writeln(kas[j].Name,' ',kas[j].Cont);
   end;
   
end.