copy

3:writeln('‚ўҐ¤ЁвҐ ўаҐ¬п ®вЇа*ў«Ґ*Ёп ',mas[i].mNum,'-®Ј® Ї®Ґ§¤*:');
readln(mas[i].mTimeO);
x:=copy(mas[i].mTimeO,1,2);
val(x,p,code);
if (p>23)or (p<00) then begin
writeln('‚ бгвЄ*е 24 з*б*. 00:00-23:59');
readln; clrscr;
goto 3;
end;

type tPzd=record
mNum:integer;
mPun:string[10];
mTimeO:string[10];
mTimeP:string[10];
mNapr:string[10];
end;

var i,p,code:integer; lol:string; x,y:string;

unit avva;
interface
uses crt;
const n=20;
type tPzd=record
mNum:integer;
mPun:string[10];
mTimeO:string[10];
mTimeP:string[10];
mNapr:string[10];
end;
var mas:array [1..n] of tPzd; p,l:integer; u:integer; d:integer;
f,fp:text; k:tPzd;
mnoz:set of 'a'..'z';
procedure sozd;
procedure dobav;
procedure ekran;
procedure copy;
procedure sort;
procedure sort2;
procedure sort3;
procedure sort4;
procedure sort5;
procedure sort6;
procedure sort7;
procedure sort8;
procedure sort9;
procedure sort10;
procedure delete;
procedure delete2;
procedure delete3;
procedure delete4;
procedure delete5;
procedure poisk;
procedure poisk2;
procedure poisk3;
procedure poisk4;
procedure poisk5;
implementation
procedure sozd; {ᮧ¤**ЁҐ д*©«*}
label 1,2,3;
var i,p,code:integer; lol:string[10]; x,y:string[10];
begin clrscr;
writeln('‚ўҐ¤ЁвҐ Їгвм Є д*©«г (Є®в®ал© е®вЁвҐ ᮧ¤*вм), ҐЈ® Ё¬п Ё а*биЁаҐ*ЁҐ:');
readln(lol); clrscr;
assign(f,lol);
rewrite(f);
1:clrscr;
writeln('‚ўҐ¤ЁвҐ Є®«-ў® Ї®Ґ§¤®ў, Є®в®алҐ ўл е®вЁвҐ ўўҐбвЁ ў а*бЇЁб**ЁҐ (‚ᥣ® ў ®аЈ**Ё§*жЁЁ 20 Ї®Ґ§¤®ў):');
{$I-}
readln(l);
if IOresult<>0 then
goto 1;
if (l<1) or (l>20) then
begin
writeln('‚ўҐ¤ЁвҐ зЁб«® ў ¤Ё*Ї*§®*Ґ 1-20');
readln;
goto 1;
end;
clrscr;
for i:=1 to l do
begin
2:writeln('‚ўҐ¤ЁвҐ *®¬Ґа Ї®Ґ§¤*(1-99):');
{$I-}
readln(mas[i].mNum);
if IOResult<>0 then
goto 2;
if (mas[i].mNum>99) or (mas[i].mNum<1) then
begin
writeln('‚ўҐ¤ЁвҐ зЁб«® ў ¤Ё*Ї*§®*Ґ 1-99');
readln; clrscr;
goto 2;
end;
writeln('‚ўҐ¤ЁвҐ Їг*Єв **§**зҐ*Ёп ',mas[i].mNum,'-®Ј® Ї®Ґ§¤*:');
readln(mas[i].mPun);
3:writeln('‚ўҐ¤ЁвҐ ўаҐ¬п ®вЇа*ў«Ґ*Ёп ',mas[i].mNum,'-®Ј® Ї®Ґ§¤*:');
readln(mas[i].mTimeO);
x:=copy(mas[i].mTimeO,1,2);
val(x,p,code);
if (p>23) or (p<0) then begin
writeln('Error');
readln;
clrscr;
goto 3;
end;
writeln('‚ўҐ¤ЁвҐ ўаҐ¬п ЇаЁЎлвЁп ',mas[i].mNum,'-®Ј® Ї®Ґ§¤*:');
readln(mas[i].mTimeP);
writeln('‚ўҐ¤ЁвҐ **Їа*ў«Ґ*ЁҐ ¤ўЁ¦Ґ*Ёп (Zapad,Sever,Yug,Vostok) ',mas[i].mNum,'-®Ј® Ї®Ґ§¤*:');
readln(mas[i].mNapr);
writeln(f,mas[i].mNum);
writeln(f,mas[i].mPun);
writeln(f,mas[i].mTimeO);
writeln(f,mas[i].mTimeP);
writeln(f,mas[i].mNapr);
clrscr;
end;
close(f);
end;

3:writeln('‚ўҐ¤ЁвҐ ўаҐ¬п ®вЇа*ў«Ґ*Ёп ',mas[i].mNum,'-®Ј® Ї®Ґ§¤*:');
readln(mas[i].mTimeO);
x:=copy(mas[i].mTimeO,1,2);
val(x,p,code);
if (p>23) or (p<0) then begin
writeln('Error');
readln;
clrscr;
goto 3;
end;