Ввести номер поезда, вывести время его отправления — Pascal(Паскаль)

program poezd;
const n=5;
var c,i:integer;
    a:array[1..5] of real;
begin
for i:=1 to n do
    begin
    write('Введите время отправления  ',i,' поезда:');
    readln(a[i]);
    end;
write('Введите номер поезда:');
readln(c);
for i:=1 to n do
    if c=i then
       begin
       writeln('Поезд отправляется в: ',a[i]:4:2);
       break;
       end;
end.