Просьба проверить и помочь,если есть ошибки., Одномерный массив Опции

[GFs]

Задание:

На сортировочную станцию прибыли К поездов.Каждый характеризуется временем прибытия и номером.Время прибытия записано в массиве Тп[К],а номер-в массиве Тн[K].
1)Организовать заполнение массивов в диалоговом режиме.
2)Определить самое раннее время прибытия и номер соответствующего поезда.
Результат вывести на экран.

Program gf;
uses crt;
const k=15;
var Tv:array [1..k] of integer;
    TN:array [1..k] of integer;
i,min,nmin:integer;
Begin
clrscr;
for i:=1 to k do
Begin
writeln (' vvedite vrem9 pribiti9 poezda ');
readln (TV [i]);
End;
for i:=1 to k do
begin
writeln ('vvedite nomer marwryta poezda');
readln (TN [i]);
end;
min:=tv[1];
nmin:=tn[1];
for i:=1 to k do
if TV[1] < min then
begin
min:=TV[i];
nmin:=tn[1];
writeln ('ranbwe vcex priwel poezd N ', i );
writeln ('nomer ego marwruta' , nmin);
writeln ('on priwel v ',min,'4acov');
end;
end.

Сообщение отредактировано: volvo - 13.12.2006 21:06