Отчет по практике: Язык программирования Pascal

vy: string [10] ;

end;

var a: array [1. .50] of RS;

n, i,j,q,k,f: integer; s,s1,w,r: string; x: RS;

begin

Writeln ('введите kol poezdov');

readln (n);

for i: =1 to n do

begin

writeln ('введите Направление',' ', i,' ','поезда');

readln (a [i]. Nap);

writeln ('введите Ф. И.О. ',' ', i,' ','машиниста');

readln (a [i]. fio);

writeln ('введите время',' ', i,' ','отправления');

readln (a [i]. vy);

end;

writeln ('введите номер операции программы');

writeln ('1-поиск поездов по фамилии, имени, отчеству машиниста');

writeln ('2-редактирование времени отправления поезда');

writeln ('3-удаление поездов по полю <Направление>');

writeln ('4-сортировку по полю <Направление>');

readln (q);

case q of

1: begin

writeln ('ведите Ф. И.О. машиниста ');

readln (w);

f: =0;

for i: =1 to n do

begin