для сдачи в универе нужна ее концовка! 
Задание заключается в следующем:
На кинофестивале 35 стран представляли свои фильмы. Общее число фильмов не превышает 100.
Известны названия стран участниц и фильмов, а также баллы, полученные каждым из фильмов. Определить фильм, завоевавший первый приз (максимальный балл) и страну, получившую наибольший средний балл за представленные фильмы. Считать, что фильмы в общем списке по странам не упорядочены, а фильм и страна, его представляющая, являются единственными победителями.
Код: Выделить всё
program SNG;
uses crt;
const m=3;
n = 10;
type
gos=record
name : string;
film : string;
ocenki : array[1..n] of word; { всего n оценок }
end;
var G:array[1..m] of gos;
i,j:integer;
max, ind : integer;
s:real;
sred : real;
begin
clrscr;
for i:=1 to m do
begin
writeln('-------------');
write('Vvedite stranu: '); readln(G[i].name);
write('Vvedite nazvanie filma: '); readln(G[i].film);
writeln('Vvedite ',n,' ocenok:');
for j:=1 to n do
readln(G[i].ocenki[j]);
end;
max := 1;
ind := 1;
for i:=1 to m do
for j:=1 to n do
if G[i].ocenki[j]>max then
begin
max := G[i].ocenki[j];
ind := i;
end;
writeln('Maximalnyj ball: ',max);
writeln('Strana: ',G[ind].name);
writeln('Film: ',G[ind].film);
writeln('-----------');
readln;
end.
ПОМОГИТЕ МНЕ ПОЖАЛУЙСТА ДОДЕЛАТЬ ПРОГРАММУ! очень нужно!
106. Invalid Numeric Format.