Записи в паскале

[dan1219]

Народ, помогите плиз с паскалем. Начал изучать тему записи. Составил программу:

program spiski;
uses crt;
type
student=record
fam:string;
srb:real;
end;
var a:array [1..10] of student;
i,m,j,k:integer;
begin
clrscr;
writeln('Введите количество записей');
read(m);
writeln('Введите элементы записей');
for i:=1 to m do
with a[i] do begin
readln(fam);
readln(srb);
end;
end.

ну вот. при вводе текста в поле fam у меня выскакивает ошибка 106.В чем проблема, подскажите?Работаю во фри паскале

[type_Oleg]

Попробуйте вместо этого

read(m);

это

readln(m);

Чтобы Enter понималась как Enter, а не как следующий ввод.

[dan1219]

Сообщение от type_Oleg

Попробуйте вместо этого

read(m);

это

readln(m);

Чтобы Enter понималась как Enter, а не как следующий ввод.

Не получается

[ZX Spectrum-128]

106-я недопустимый цифровой формат. Вроде.
А причем тут это?

[type_Oleg]

А у меня получилось

program spiski;
 uses crt;
 type
 student=record
 fam:string;
 srb:real;
 end;
 var a:array [1..10] of student;
 i,m,j,k:integer;
 begin
  clrscr;
  writeln('kol zap');
  readln(m);
  writeln('elementy');
  for i:=1 to m do
   with a[i] do 
    begin
     readln(fam);
     readln(srb);
    end;
 end.

[dan1219]

Сообщение от type_Oleg

А у меня получилось

program spiski;
 uses crt;
 type
 student=record
 fam:string;
 srb:real;
 end;
 var a:array [1..10] of student;
 i,m,j,k:integer;
 begin
  clrscr;
  writeln('kol zap');
  readln(m);
  writeln('elementy');
  for i:=1 to m do
   with a[i] do 
    begin
     readln(fam);
     readln(srb);
    end;
 end.

Странно.А ты во фри паскале работаешь?

[type_Oleg]

ZX Spectrum-128, видимо после read(m) , кнопку Enter понимало как следующий ввод . В результате, когда вводили строку fam, программа ждала уже число srb

[type_Oleg]

Сообщение от dan1219

Странно.А ты во фри паскале работаешь?

В Geany, там вроде компилятор fpc

[Poma][a]

В Geany, там вроде компилятор fpc

Он самый..
Фришечка должна принять код.. ничего криминального там нет..