Значение было недопустимо малым или недопустимо большим для Int32

program lab11;
 
type
stud=record
pr:array[1..10] of char;
im:array[1..10] of char;
nk:1..6;
ng:1..8;
ocin:array[1..3,1..5] of 2..5;
end;
 
studstup=record
pr:array[1..10] of char;
im:array[1..10] of char;
nk:1..6;
ng:1..8;
stup:real;
end;
 
studall=record
pr:array[1..10] of char;
im:array[1..10] of char;
nk:1..6;
ng:1..8;
ocin:array[1..3,1..5] of 2..5;
stup:real;
end;
 
var
fd, fb:text;
dek:array[1..5] of stud;
stup:array[1..5] of studstup;
all:array[1..5] of studall;
buh: array [1..10] of studstup;
i,j,s,p,r,m:integer;
match_:boolean;
begin
 
assign(fd,'fd.txt');
reset(fd);
assign(fb,'fb.txt');
reset(fb);
for i:=1 to 5 do
begin
for j:=1 to 10 do
read(fd,dek[i].pr[j]);
for j:=1 to 10 do
read(fd,dek[i].im[j]);
read(fd,dek[i].nk);
readln(fd,dek[i].ng);
for s:=1 to 3 do
begin
for p:=1 to 5 do
begin
//for p:=1 to 5 do
begin
read (fd,dek[i].ocin[s,p]);
end;
readln(fd);
end;
end;
 
//for i:=1 to 5 do
begin
for j:=1 to 10 do
read(fb,buh[i].pr[j]);
for j:=1 to 10 do
read(fb,buh[i].im[j]);
read(fb,buh[i].nk);
read(fb,buh[i].ng);
readln(fb,buh[i].stup);
end;
 
match_:= true;
 
//for i:=1 to 5 do
begin
 
for j:=1 to 10 do
if (dek[i].pr[j]<>buh[i].pr[j]) or (dek[i].im[j]<>buh[i].im[j]) then match_:=false;
 
if (match_=true)and (dek[i].nk=buh[i].nk) and (dek[i].ng=buh[i].ng) then
 
 
begin
for j:=1 to 10 do
all[i].pr[j]:=dek[i].pr[j];
for j:=1 to 10 do
all[i].im[j]:=dek[i].im[j];
all[i].nk:=dek[i].nk;
all[i].ng:=dek[i].ng;
for s:=1 to 3 do
for p:=1 to 5 do
all[i].ocin[s,p]:=dek[i].ocin[s,p];
all[i].stup:=buh[i].stup;
end;
end;
 
writeln('REZULTAT=');
//for i:=1 to 5 do
begin
for j:=1 to 10 do
write(all[i].pr[j]);
for j:=1 to 10 do
write(all[i].im[j]);
write(all[i].nk,' ');
writeln(all[i].ng);
for s:=1 to 3 do
begin
for p:=1 to 5 do
begin
write(all[i].ocin[s,p],' ');
end;
writeln;
end;
if all[i].stup=0 then
writeln('stypendii ne otrymuie')
else
writeln('stypendia= ',all[i].stup:6:2);
end;
close (fd);
close(fb);
end;
END.

    for i:=1 to 5 do
    begin
      for j := 1 to 10 do
        read(fb, buh[i].pr[j]);
      for j := 1 to 10 do
        read(fb, buh[i].im[j]);
      read(fb, buh[i].nk);
      read(fb, buh[i].ng);
      readln(fb, buh[i].stup);
    end;

type
  tRec = class
    Фамилия : String;
    Оценки  : array of Integer;
    Стипендия : Integer;
    
    procedure Print := PrintLn($'{Фамилия,-15} — Оценки {Оценки.JoinToString,-10} — Стипендия : {Стипендия=0?''Не получает'':Стипендия.ToString}');
    
    constructor(s : String);
    begin
      var a := s.ToWords;
      Фамилия := a[0];
      Оценки  := a[1:].JoinToString.ToIntegers;
    end;
    
  end;
  
begin
  var l := ReadAllLines('Успеваемость.txt').Select(s->New tRec(s)).ToList;
  foreach var s in ReadAllLines('Ведомость.txt') do
    begin
      var a := s.ToWords;
      var(Фамилия,Стипендия) := (a[0],a[1].ToInteger);
      var Студент := l.Find(Студент->Студент.Фамилия = Фамилия);
      if Студент <> nil then
        Студент.Стипендия := Стипендия;
    end;
  foreach var Студент in l do Студент.Print;
end.