Представить данные о студентах института в виде массива записей. Паскаль.

[menlo]

Представить данные о студентах института в виде массива записей со структурой:
Студент
Ф.И.О
Средний балл за семестр
Написать процедуру сортировки записей по N-му полю.

[AlDelta]

В чем проблема? Это задание описано наверное в каждом учебнике по Паскалю, в котором количество страниц больше 40. Может для начала что-нибудь почитать, попробовать сделать и если не получается на основе того, что делали задавать вопросы.

Подобные задания расматривались на форуме. Кнопай поиск по словам: типизированные файлы, масив записей, сортировка записей.

[menlo]

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

[puporev]

Вот пример рабочего кода задачи, по структуре похожей на твою. Попробуй разобраться и переделать. В конце сортировка по полю, оформи её процедурой.
Теорию прочитай в своем неправильном учебнике, теория должна работать.

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.