Record. Не работает программа...

[subzero95]

program asderaq;
type tabl=record
   nomer: 1..255;
   fam: string[50];
   name: string[50];
   pol: string[10];
   rost: 1..255;
   ves: 1..255;
               end;
               var a:array[1..100] of tabl;
               b:array[1..100] of integer;
                   i,n,k,s,h,g,m,buf:integer;
                   temp:string[50];
                   sr:real;
               begin
               writeln('vvedite kolvo ychasnichov');
               readln (n);
               if (n<=0) or (n>100) then
               writeln ('ANOMAL')
               else
               begin
               for i:=1 to n do
               begin
               writeln('VVEDITE INFO o ychasnike #',i);
               writeln('Nomer sekchii  ');
               read(a[i].nomer);
               writeln('Familia ');
               read(a[i].fam);
               writeln('name ');
               read(a[i].name);
               writeln('pol ');
               read(a[i].pol);
               writeln('rost ');
               read(a[i].rost);
               writeln('ves ');
               read(a[i].ves);
               end;

Почему-то не вводятся все секции с типом string (fam, name,pol)... В чём проблема?

[subzero95]

Отпишитесь пожалуйста если она работает!!! Возможно дело просто в моём паскале...

[s-andriano]

Увы, без условия проверить программу на правильность принципиально невозможно.

[subzero95]

Я имел в виду работает ли ввод? Просто у меня ТП просто пропускает пункты ввода фамилии имени и пола...
Мне нужно чтоб кто-то проверил работает ли ввод вообще!

[s-andriano]

Замените read на readln.

[subzero95]

Благодарю! Только не понимаю почему с read она не работает?

[Stilet]

Наверное потому что read не глотает клавишу Энтер, которой ты подтверждаешь (я так думаю) ввод значения, соответственно Энтер переходит на следующий Read забивая мусор.
Read используется для файлов, или потокового ввода, но не для текстового, консольного (ответа пользователя, с подтверждением окончания ввода клавишей энтер)