Обработка массива записей. TurboPascal

[Nosferatu]

Задача на TurboPascale
Задача заключается в следующем:

На кинофестивале 35 стран представляли свои фильмы. Общее число фильмов не превышает 100.
Известны названия стран участниц и фильмов, а также баллы, полученные каждым из фильмов. Определить фильм, завоевавший первый приз (максимальный балл) и страну, получившую наибольший средний балл за представленные фильмы. Считать, что фильмы в общем списке по странам не упорядочены, а фильм и страна, его представляющая, являются единственными победителями.

Помогите пожалуйста девушке! Ребята, выручайте!
нужно также начертить блок-схему!

P.S. Надеюсь, тему верно назвала! Модеры,если что, не карайте меня!

[fbus]

стучись в аську 26642933семь, договоримся

[Stilet]

Помогите пожалуйста девушке! Ребята, выручайте!

Чем помочь? Написать полный код или поправить твои наработки?

[Nosferatu]

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

Чем помочь? Написать полный код или поправить твои наработки?

написать полный код программы.
сама пыталась, но увы....

[DM_bite]

написать полный код программы.
сама пыталась, но увы....

Полный код писать - это долго. Что пытались-то? Выкладывайте.

[Nosferatu]

program SNG;
uses crt;
const m=3;
type
gos=record
name:string;
S:real;
peop:word;
sch:word;
hosp:word;
inst:word;
end;

var G:array[1..m] of gos;
i,j:integer;
x:gos;s:real;
begin
clrscr;
G[1].name:='ђ®ббЁп'; G[2].name:='Њ®«¤®ў*'; G[3].name:='Ђа¬Ґ*Ёп';
G[1].peop:=140;G[2].peop:=20;G[3].peop:=40;
G[1].S:=500;G[2].S:=20;G[3].S:=60;
G[1].sch:=5000;G[2].sch:=200;G[3].sch:=100;
G[1].hosp:=3000;G[2].hosp:=100;G[3].hosp:=60;
G[1].inst:=2000;G[2].inst:=20;G[3].inst:=20;

for i:=1 to 2 do begin
for j:=1 to 2 do
if G[j].Peop/G[j].S<G[j+1].Peop/G[j+1].S
then begin
x:=G[j]; G[j]:=G[j+1];G[j+1]:=x;
end;end;
for i:=1 to 3 do
Writeln(G[i].name);
readln;end.

вот из этого пыталась сделать программу. пробовала добавить код матриц, но не знаю надо ли. Подскажите мне пожалуйста!

[Nosferatu]

Ну неужели никто не поможет?

[Sazary]

Поясните, что означают поля:

name:string;
S:real;
peop:word;
sch:word;
hosp:word;
inst:word;

name - понятно - название страны.
А остальные?

также баллы

Верна ли моя догадка, что эти поля - оценки?
Тогда нужно загнать их в массив. Так будет намного легче.

[Nosferatu]

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

Поясните, что означают поля:

name:string;
S:real;
peop:word;
sch:word;
hosp:word;
inst:word;

name - понятно - название страны.
А остальные?

Верна ли моя догадка, что эти поля - оценки?
Тогда нужно загнать их в массив. Так будет намного легче.

не могу точно ответить, но скорее всего это так. только не знаю, как загнать их в массив!! вероятно, остальные строчки не нужны.
Понимаете, я в паскале вообще мало что понимаю, а лабу сдать небходимо.

[Sazary]

не могу точно ответить,

Что значит не можете точно ответить? Это вы писали? Или нет?

только не знаю, как загнать их в массив!!

Запись будет выглядеть как-нибудь так:

type
gos=record
name : string;
film : string;
ocenki : array[1..10] of word; { всего 10 оценок }
end;