задача на паскале, массив из записей

[In\/isible]

Описать структуру с именем TRAIN с полями:
NAZN - название пункта назначения;
NUMR - номер поезда, TIME - время отправления.
Написать программу, выполняющую следующие действия:
- заполнение ( с клавиатуры и из файла) массива RASP с элементами типа TRAIN; записи должны быть размещены в алфавитном порядке по названию пунктов назначения;
- вывод информации о поездах, отправляющихся после введенного с клавиатуры времени;
- если таких поездов нет, выдать сообщение.

Решите, пожалуйста, кому не сложно) сижу уже часов 6 бестолку х)
Понимаю, как решать, а написать никак не получается(
стыдно до ужаса

[Vanta11a]

Наработки где?

- заполнение ( с клавиатуры и из файла) массива RASP с элементами типа TRAIN; записи должны быть размещены в алфавитном порядке по названию пунктов назначения;

Находим место, в которое надо вставить запись, увеличиваем размер массива на 1, смещаем записи на 1 вправо, вставляем запись

- вывод информации о поездах, отправляющихся после введенного с клавиатуры времени;

Банальное "если"

- если таких поездов нет, выдать сообщение.

Тоже банальное "если"

[In\/isible]

uses crt;
type
    train=record
                nazn:string;
                numr:integer;
                time:real;
                end;
    rasp=array[1..100] of train;
var
   t:rasp;
   f:text;
   a:train;
   n:integer;

procedure chtenie(f:text; var x:rasp);
var i:integer;
begin
     assign(f,'poezd.txt');
     reset(f);
     i:=1;
     while not eof(f) do
           begin
                readln(f,x[i].nazn);
                readln(f,x[i].numr);
                readln(f,x[i].time);
                writeln(f,x[i].nazn);
                writeln(f,x[i].numr);
                writeln(f,x[i].time);
           end;
     close(f);
end;

function max(x:rasp; nx:integer):integer;
var k,i:integer;
begin
     k:=1;
     for i:=1 to nx do
         if x[i].nazn>x[k].nazn then k:=i;
     max:=k;
end;

procedure swap(var x,y:string);
var z:string;
begin
     z:=x;
     x:=y;
     y:=z;
end;

procedure vibor(var x:rasp; nx:integer);
var i:integer;
begin
     for i:=nx downto 1 do
         swap(x[i].nazn, x[max(x,i)].nazn);
end;


procedure vyvod(f:text; var x:rasp);
var i,n:integer;
    k:real;
begin
     writeln('              введите время отправления: ');
     readln(k);
     assign(f,'poezd.txt');
     reset(f);
          for i:=1 to i+1 do
          while not eof (f) do
     begin
          if (k<=x[i].time) then writeln(x[i].nazn:10,x[i].numr:10,'      ', x[i].time);
     end;
     if (k>x[i].time) then writeln('поездов нет');
     close(f);
end;

begin
     chtenie(f,t);
     vyvod(f,t);
     vibor(t,3);
     vyvod(f,t);
end.

[In\/isible]

не работает процедура чтения
Что тут не так?...х)

[In\/isible]

ВСЁ РАБОТАЕТ!!! (^^,)

uses crt;
type
    train=record
                time:string[20];
                numr:integer;
                nazn:string[20];
            end;

     rasp=array[1..20] of train;
     
var t:rasp;
    f:text;
    dl:integer;
     
procedure txt_to_mas(var dlx:integer;fx:text;var tx:rasp);
    var i:integer;
    begin
         reset(fx);
         i:=1;
         while not eof(fx) do
                             begin
                                    readln(fx,tx[i].time);
                                    readln(fx,tx[i].numr);
                                    readln(fx,tx[i].nazn);
                                    inc(i);
                             end;
         dlx:=i-1;
         close(fx);
    end;



procedure vivod(dlx:integer;tx:rasp);
var i:integer;
begin
    writeln('                -RASPISANIE- ');
    for i:= 1 to dlx do
        begin
        writeln(tx[i].time:5);
        writeln(tx[i].numr:5);
        writeln(tx[i].nazn:5);
        end;
end;





procedure swap (var x,y:train);
var z:train;
begin
z:=x;
x:=y;
y:=z;
end;


function max (tx:rasp; dlx:integer):integer;
var k,i:integer;
begin k:=1;
      for i:= 1 to dlx do
          if tx[i].nazn > tx[k].nazn then k:=i;
      max:=k;
end;



procedure vibor (var tx:rasp;dlx:integer);
var i:integer;
begin
     for i:= dlx downto 1 do
    swap(tx[i],tx[max(tx,i)]);
end;
    
procedure vyvod(fx:text; var tx:rasp);
var i,n:integer;
    k:string[20];
begin
     writeln('              Vvedite vremya otpravleniya: ');
     readln(k);
     assign(fx,'poezd.txt');
     reset(fx);
          for i:=1 to i+1 do
          while not eof (fx) do
     begin
          readln(fx,tx[i].time);
          readln(fx,tx[i].numr);
          readln(fx,tx[i].nazn);
          if (k <= tx[i].time) then writeln(tx[i].nazn:10, tx[i].numr:10,'      ', tx[i].time);
     end;
     if (k>tx[i].time) then writeln('takih poezdov net');
     close(fx);
end;
    
begin
assign(f,'poezd.txt');
txt_to_mas(dl,f,t);
vibor(t,dl);
vivod(dl,t);
vyvod(f,t);
end.