program lab11;
uses crt;
type
tabl=record
	mo:integer;
	av:string[9];
	di:string[9];
	mosh:string[9];
	nagr:string[9];
	skor:string[9];
	toch:string[9];
	end;
var
tb:file of tabl;
str:tabl;
i,k,j:integer;
tr:string[8];
name:string[12];
mas:array[integer] of integer;
procedure name_fail;
begin
write('введите имя файла:> ');
readln(name);
end;
procedure dob;
begin
writeln('ввод записи с № ',filepos(tb)+1);
	with str do
	begin
	write('введите модель ');
	readln(mo);
	write('введите название автомобиля ');
	read(av);
	write('введите деаметр барабана ');
	read(di);
	write('введите мощность ');
	read(mosh);
	write('введите нагрузку ');
	read(nagr);
	write('введите скорость ');
	read(skor);
	write('введирте точность ');
	read(toch);
	write(tb,str);
	end;
end;
procedure vivod;
begin
read(tb,str);
writeln('╔══════════╦══════════╦══════════╦══════════╦══════════╦══════════╦══════════╗');
writeln('║Модель    ║Автомобили║Диаметр   ║Мощность  ║Нагрузка  ║Имитируе- ║Точность  ║');
writeln('║          ║          ║          ║          ║          ║мая       ║измерения ║');
writeln('║          ║          ║          ║          ║          ║скорость  ║          ║');
writeln('╠══════════╬══════════╬══════════╬══════════╬══════════╬══════════╬══════════╣');
s:=Length('╠══════════');
	with str do begin
	write('║');
	write(model:9);
	g:=1;
	gotoXY(s+g,i+5);
	write('║');
	write(av:9);
	g:=g+11;
	gotoXY(s+g,i+5);
	write('║');
	write(diam:9:3);
	g:=g+11;
	gotoXY(s+g,i+5);
	write('║');
	write(mosh:9:3);
	g:=g+11;
	gotoXY(s+g,i+5);
	write('║');
	write(nagr:9:3);
	g:=g+11;
	gotoXY(s+g,i+5);
	write('║');
	write(skor:9);
	g:=g+11;
	gotoXY(s+g,i+5);
	write('║');
	write(toch:9:3);
	g:=g+11;
	gotoXY(s+g,i+5);
	write('║');
	writeln;
	end;
end;
procedure vivvseg;
begin
name_fail;
assign(tb,name);
{$I-}
reset(tb);
{$I+}
if ioresult = 0 then
	 begin
		seek(tb,0);
		writeln('вывод сведений из файла ',name);
		while (not eof(tb)) do
		vivod;
	 end
	else
	 writeln('файла с именем ',name,' не существует');
end;
procedure yporyadochit;
begin


procedure menu;
begin
writeln('1 - Создать набор данных');
writeln('2 - упорядочить по модели тормоза');
writeln('3 - выбрать запись с заданой моделью тормоза');
writeln('4 - выход');
readln(k);
case k of
	1:
	2:
	3:
	4: halt(1);
end;
begin
clrscr;