Записи и нахождения максимума

[edmynt]

Задача.
Организовать хранение инфы :Фамилия студента, рост. При добавлении новой записи, если рост студента больше всех остальных, то запись добавляеться в начало массива записей,иначе в конец. Размер массива записей -N

program laba7;
uses crt;
const n=10;    {Константа}
label vvod, poisk, exit1, start1;
type
    stud=record      {запись типа}
    f:string;           {Фамилия студента}
    r:integer;         {Рост}
end;
var
   b:array [1..n] of stud; {Массив студентов равный n}
   p:array [1..n] of stud;
   a:stud;
   v:integer;     {Переменная выбора}
   i,j, max, s:integer;
   max_f: string;
   {*******************ОСНОВНАЯ ПРОГРАММА*****************}
begin
     start1:
   clrscr;
          writeln('Введите 1 для записи студентов');
          writeln('Введите 2 для Просмотра записей');
          writeln('Введите 3 для выхода');
          readln(v);
                 case v of
                      1: begin
                              goto vvod;
                        end;
                      2: begin
                              goto poisk;
                         end;
                      3: begin
                              goto exit1;
                         end;
                 end;
          vvod:
               writeln('Введите колличество записей');
               readln(j);
               writeln ('Начинайте вводить Записи');
                       for i:=1 to j do
                           begin
                                writeln('Фамилия');
                                readln(b[i].f);
                                writeln('Рост');
                                readln(b[i].r);

                           end;
               writeln ('Введено успешно ',j,' человек');
               readln;
               max:=b[1].r;
               max_f:=b[1].f;
               s:=1;
                    while s<=j do
                    begin
                          for i:=1 to j do
                              begin
                                   if max<b[i].r then
                                      begin
                                            max:=b[i].r;
                                            max_f:=b[i].f;
                                      end;

Скажите плизз что тут не так? Значение в 0 выводит...

[danekne]

Первое - goto признак плохого тона. 2 - while s<=j do
Это условие сразу выполнимо! 1<=j... А вообще в коде чего то не хватает Вы s изменять вообще не собираетесь? Пусть вечно цикл гоняет?

[edmynt]

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

Первое - goto признак плохого тона. 2 - while s<=j do
Это условие сразу выполнимо! 1<=j... А вообще в коде чего то не хватает Вы s изменять вообще не собираетесь? Пусть вечно цикл гоняет?

S изменено inc(s)

[danekne]

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

S изменено inc(s)

 while s<=j do
                    begin
                          for i:=1 to j do
                              begin
                                   if max<b[i].r then
                                      begin
                                            max:=b[i].r;
                                            max_f:=b[i].f;
                                      end;

где?