Сианция "Серпухов-Тула" ; Массивы

program variant24;
const n = 5;//константа конечного элемнта массива содержащего данные о растояниях между парами станций
      m = 5;//константа конечного элемнта массива содержащего номера пар станций
 
 var T:array[1..n] of integer; // описание массива содержащего данные о растояниях между парами станций
     TI:array[1..m] of integer;// описание содержащего номера пар станций
     j,max,i,num:integer; //описание переменных необходимых для задачи
     a:string;
 begin
 writeln('Введите n элементов массива');
   for j:=1 to n do readln(T[j]);        //ввод растояний между всеми станциями
     max:=T[j];
     num:=1;
   for j:=2 to n do
     If  T[j]>max then max:=T[j];    //выбор максимального расстояния
   begin
     for j:=2 to n do
     If  T[j]=max then num:=j;     //выбор номера элемента максимальной позиции
     end;
 writeln('Введите m элементов массива');
 
   for i:=1 to m do readln(TI[i]);       //ввод номеров станций
   if  num=1 then a:='Расстояние от 1 до 2 станции' else    //выбор номера пары станций с максимальным расстоянием
   if  num=2 then a:='Расстояние от 2 до 3 станции' else
   if  num=3 then a:='Расстояние от 3 до 4 станции' else
   if  num=4 then a:='Расстояние от 4 до 5 станции' else
   if  num=5 then a:='Расстояние от 5 до 6 станции';
 
 
  writeln('Номер станций и расстояние между ними',' ',a, ' ', max);    //вывод результата
  end.