Работа с записями, вычисление значения выражения. (Pascal)

[Архивариус]

Добрый день, форумчане. Программа при компиляции выдает ошибку ввода/вывода (неверный числовой формат при вводе /19строка/), все числа целого типа, кроме результатов вычисления средних показателей.

program lab7;
uses crt;
const
 n=7;
Type st=record
  fam:string[10];
  b1,b2,b3,b4,b5:2..5;
  sb:real;
end;
mas=array[1..n] of st;
Procedure read_file(var f:text; var m:mas);
 var
 i:integer;
 begin
  for i:=1 to n do
   begin
    m[i].sb:=0;
    read(f, m[i].fam);
    read(f, m[i].b1);
    read(f, m[i].b2);
    read(f, m[i].b3);
    read(f, m[i].b4);
    readln(f, m[i].b5);
    m[i].sb:=m[i].b1+m[i].b2+m[i].b3+m[i].b4+m[i].b5;
    m[i].sb:=m[i].sb/5;
   end;
 end;
Procedure sb_g(m:mas; var sbg:real);
 var
 i:integer;
 begin
  sbg:=0;
  for i:=1 to n do
 sbg:=sbg+m[i].sb;
  sbg:=sbg/n;
 end;
Procedure second(m:mas; var k:integer);
 var
 i:integer;
 begin
  k:=0;
  for i:=1 to n do
  if m[i].b2=5 then
  k:=k+1;
 end;
Var
 f:text;
 ved:mas;
 sb_gr:real;
 k,i:integer;
begin
clrscr;
assign(f, 'inpgr.txt');
reset(f);
read_file(f, ved);
for i:=1 to n do
 begin
 write(ved[i].fam:10);
 write(ved[i].b1:3);
 write(ved[i].b2:3);
 write(ved[i].b3:3);
 write(ved[i].b4:3);
 write(ved[i].b5:3);
 writeln(ved[i].sb:5:2);
 end;
sb_g(ved,sb_gr);
writeln(' Sredniy ball:' , sb_gr:6:2);
second(ved, k);
writeln('Kol-vo 5 po 2-mu predmetu=' , k);
close(f);
readkey;
end.

Заранее большое спасибо.

[Базиля]

Какие входные данные?
Может быть вы выходите за диапазон вашего интервального типа.

[Архивариус]

Нет, за пределы диапазона я не выходил, т.к. по заданию нужно вычислить средний балл каждого студента и всей группы.

[Базиля]

Так какие входные данные?

[Архивариус]

Входные данные из текстового файла

Gaftonyuk  2 2 2 2 2
Gorochenko 4 5 3 4 5
Gricenko   4 3 3 4 5
Kozar      3 4 4 3 2
Severin    4 4 5 4 3
Udalcov    5 5 4 4 5
Yarmak     5 5 5 4 4

Мне главное узнать хотя бы где эту ошибку я допустил и в чем она заключается.

[Sciv]

Естественно, ошибка, у Вас же файл текстовый

var f:text

А работаете Вы с типом record

Либо делайте file of record, либо считывайте всю строку и разбирайте по переменным с соответствующим преобразованием типов.

[Базиля]

Действительно, что-то углядел, файл то текстовый...

[Архивариус]

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

Естественно, ошибка, у Вас же файл текстовый

var f:text

А работаете Вы с типом record

Либо делайте file of record, либо считывайте всю строку и разбирайте по переменным с соответствующим преобразованием типов.

Вот том вся и проблема, что именно такой текст программы давал преподаватель на практическом занятии. В нем я изменил только одну процедуру, чтоб соответствовала условиям моего задания, а первые две общие (для всей группы).

[Архивариус]

Если возможно, то подскажите, где именно нужно изменить.

[Sciv]

В процедуре:

Procedure read_file(var f:file of st; var m:mas);

и в самой программе:

Var
 f:file of st;
 ved:mas;
 sb_gr:real;
 k,i:integer;

Ну и добавить процедуру ввода всех этих данных в файл

Procedure write_file(f:file of st; var m:mas);

Текст тот же, что для чтения, но пишете

ReadLn(элемент_массива);
Write(F,элемент_массива);