Работа на form. RAD Studio. Delphi

program Roct;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  System.SysUtils;
 
type
  student = record
    rost: Integer;
    FIO: string[45];
  end;
 
   var
  i,j : Integer;
  students: array [1..6] of student;
  NewSt : student;
  Delta, Delta1: Integer; //Разница в росте по сравнению с Новеньким предыдущего и следуюцего ученика
  NRost: Integer; //Рост новенького
  //    F: String;  //Фамилия ученика, рост которого меньше всего отличается от роста новенького
  //      R: Integer; //Рост того ученика, рост которого меньше всего отличается от роста новенького
        D: Integer; //Переменная для case
begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
 
 
begin
   i:=0;
   j:=0;
  for i := 1 to 5 do begin
    Writeln('Введите Ф.И.О ('+IntToStr(i)+') ученика');
    ReadLn(students[i].FIO);
    Writeln('Введите рост ('+IntToStr(i)+') ученика');
    ReadLn(students[i].rost);
  end;
 
  Writeln('Введите Ф.И.О нового ученика('+IntToStr(i)+') ученика');
  ReadLn(NewSt.FIO);
   Writeln('Введите рост нового ученика('+IntToStr(i)+') ученика');
  ReadLn(NewSt.rost);
  Nrost:=NewSt.rost; //Рост новенького
 
  i := 1;
  while students[i].rost > NewSt.rost do
      Inc(i);
   Writeln('Нового ученика нужно вставить перед учеником');
   //Запоминаем индекс новенького
 
  J:=i;
    WriteLn(students[i-1].FIO);
      //Разница в росте между новеньким и предыдующим по величине роста
    Delta:=Nrost-students[i].rost;
end;
     Delta1:=students[i-1].rost-Nrost;
 
 Writeln('Список учеников рост которых ниже нового ученика:');
   for i:= j to 5 do
     WriteLn(students[i].FIO);
 
 
       D:=Delta1-Delta;
       Writeln('Nrost',IntToStr(nrost));
       Writeln('D=',IntToStr(D));
       WriteLn('j=',IntToStr(j));
 
    case D of
      1..265 :  WriteLn(students[j].FIO+'  ', IntToStr(students[j].rost));
     -265..-1:  WriteLn(students[j-1].FIO+'  ', IntToStr(students[j-1].rost));
           0 :  Begin WriteLn('Меньше всего отличаются от роста новенького ученики которые выше и ниже его в списке');
                 WriteLn(students[j-1].FIO+'рост= ', IntToStr(students[j-1].rost), students[j].FIO+'рост=  ', IntToStr(students[j].rost));
                End;
 
     end;
 
 {
 Repeat
 
 WriteLn(students[i].FIO);
  i:=i+1;
 Until i=7;
 Writeln('Меньше всего от роста нового ученика отличается(ются):');
  }
 
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.