Создание базы данных

[syc07]

Turbo Pascal
Существует БД с информацией о студентах ( фамилия, имя , год рожд, номер зачетки, изучаемый язык, средний балл успеваемости)
Необходимо упорядочить людей по среднему баллу(.ball)
Программа написана(фактически правильна), но есть проблема. вылетает ошибка 106 Invalid numeric format (Неверный числовой формат).

Uses CRT;
Type students=record
     fam:string[12];
     imya:string[9];
     droj:string[10];
     nom:string[8];
     lang:string[3];
     ball:real;
end;
Var
    a:array[1..100] of students;
    i,j,n:byte;
    inp,out:text;
    std:students;
begin
clrscr;
assign(inp,'f:\17.in');
reset(inp);
n:=0;
while not eof(inp) do
begin
 n:=n+1;
 read(inp,a[n].fam,a[n].imya,a[n].droj,a[n].nom,a[n].lang,a[n].ball); {ошибка 106 Invalid numeric format}
 writeln(a[n].fam,a[n].imya,a[n].droj,a[n].nom,a[n].lang,a[n].ball)
end;
close(inp);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].ball<a[j].ball then
begin
 std:=a[i];
 a[i]:=a[j];
 a[j]:=std;
end;
writeln;
Assign(out,'f:\17.out');
rewrite(out);
 writeln(out,'Uporyadocheno c naibolshego balla');
for i:=1 to n do
begin
 writeln(a[i].fam,a[i].imya,a[i].droj,a[i].nom,a[i].lang,a[i].ball);
 writeln(out,a[i].fam,a[i].imya,a[i].droj,a[i].nom,a[i].lang,a[i].ball)
end;
close(out);
readln
end.

[Balanar]

Такая ошибка может возникнуть если ти в числовую переменною записиваеш не число а строку.
Поменяй ball:real; на ball :string[10];
или преобразируй тип з помощу функции VAL(str:string,n:real,ind:integer);