нужно устранить ошибку....

В файле типа RECORD хранится информация о поступивших в ремонт бытовых приборах: тип бытового прибора, год выпуска, наименование дефекта, наименование необходимой детали для ремонта, стоимость ремонта. Составить программу для получения:
• Сведений о приборах, имеющих наибольшую стоимость ремонта;
• Информации о количестве приборов одного типа, требующих одинаковой детали для ремонта.


не пойму на что он там ругается....в 149 строке вроде все так написанно

program kyrsach;

USES CRT;
const
PathToFile = 'С:\my.dat';

type
pribor = record
FIO: string[25];
PType:string[25];
year:string[4];
deffect:string[50];
detal:string[25];
price:integer;
end;

var
key: char;
pribors: array[0..50] of pribor;
nam: string[25];
length, i, j, year, price, max: integer;

procedure CreatePriborFile(FilePath: string);
var
my: file of pribor;
i,length: byte;
pribors: array [0..50] of pribor;
yesno: char;
begin
assign(my, FilePath);
rewrite(my);
i:=0;
repeat
with pribors[i] do begin
clrscr;
write('ФИО клиента: ');
readln(FIO);
clrscr;
write('Тип прибора: ');
readln(PType);
clrscr;
write('Год выпуска: ');
readln(year);
clrscr;
write('Страховая стомость: ');
readln(deffect);
clrscr;
write('Наименование дефекта: ');
readln(detal);
clrscr;
write('Дата приемки в ремонт: ');
readln(price);
clrscr;
end;
i:=i+1;
write('Создать еще одну запись? (y\n)');
yesno:=readkey;
write(yesno);
until yesno = 'n';
length:= i;
for i:=0 to length do
write(my,pribors[i]);
close(my);
end;

procedure ReadPriborFile(FilePath: string; var pribors: array[0..50] of pribor;var length: integer);
var
i: byte;
my: file of pribor;
begin
{Чтение из файла}
assign(my, FilePath);
reset(my);
i:=0;
while not eof(my) do begin
read(my, pribors[i]);
i:=i+1;
end;
length:=i;
close(my);
end;

begin
repeat
textbackground(2);
textcolor(7);
clrscr;
gotoXY(1,8);
writeln(' ОСНОВНАЯ ПРОГРАММА:');
writeln('');
writeln(' 1. О программе');
writeln(' 2. Меню');
write(' 3. Выход');
key:= readkey;
case key of
'1': begin
clrscr;
gotoxy(1,9);
writeln(' Программа по ремонту бытовых приборов.');
writeln(' Запись и чтение данных из файла: ', PathToFile);
write(' Составлена студентом группы БТК-101, ');
textcolor(2);
writeln('Егоровым Павлом');
textcolor(7);
writeln;
write(' Для возврата в меню нажмите ESC');
repeat
key:=readkey;
until key = 'ESC';
end;
'2': begin
repeat
clrscr;
gotoxy(1, 8);
writeln(' МЕНЮ');
writeln;
writeln(' 1. Создать файл с данными.');
writeln(' 2. Просмотр данных из файла.');
writeln(' 3. Приборы, имеющее наибольшую стоимость ремонта');
writeln(' 4. Кол-во приборов одного типа, требующих одинаковых деталей для ремонта');
writeln;
write(' ESC. <<');
key:= readkey;
case key of
'1': CreatePriborFile(PathToFile);
'2': begin
clrscr;
ReadPriborFile(PathToFile, pribors, length);
for i:=0 to length - 2 do
with pribors[i] do
writeln(FIO, ' ', PType, ' ', year, ' ', deffect, ' ', detal, ' ', price);
key:= readkey;
end;
'3': begin
max:=pribors[i].price;
nam:=pribors[i].detal;
For i:=2 to length - 2 do
with pribors[i] do
if pribors[i].price=max then
begin
max:=pribors[i].price;
nam:=pribors[i].detal;
end;
writeln('maximalnaja price remonta',' ',nam,'=',max);
end;
'4': begin
clrscr;
write('Введите тип прибора: ');
readln(PType);
writeln;
write('Введите наименование дефекта: ');
readln(deffect);
writeln;
writeln('Результат поиска:');
ReadPriborFile(PathToFile, pribors, length);
j:=0;
for i:=0 to length - 2 do
if pribors[i].PType = PType then with pribors[i] do begin
writeln(FIO, ' ', PType, ' ', year, ' ', deffect, ' ', detal, ' ', price);
j:=j+1;
if pribors[i].detal = detal then with pribors[i] do begin
writeln(FIO, ' ', PType, ' ', year, ' ', deffect, ' ', detal, ' ', price);
j:=j+1;
end;
end;
writeln;
if j <> 0 then
write('Найдено записей: ',j)
else
write('Записей не найдено!');
key:= readkey;
end;
end;
until key = 'ESC';
end;
end;
until key = '3';
end.



readln(PType);
на это ругается

Добавлено через 15 минут
помогите пожалуста............

0

Сильно ругается-то? В смысле: что пишет?

0

А файл указать, откуда ему читать? Или можете просто стандыртные потоки перенаправить, чтобы код весь не переписывать

0

больше не ругатся...
только теперь не выводит на экран искомые запросы в меню они есть...
а когда их выбираешь они не обрабатываются.......
просто пустое окно

помогите плиз






program kyrsach;

USES CRT;
const
PathToFile = 'D:\PFile.pbr';

type
pribor = record
FIO: string[25];
PType:string[25];
year:string[4];
deffect:string[50];
detal:string[25];
price:integer;
end;

var
key: char;
pribors: array[0..50] of pribor;
nam, PType, deffect: string[25];
length, i, j, year, price, max: integer;

procedure CreatePriborFile(FilePath: string);
var
PFile: file of pribor;
i,length: byte;
pribors: array [0..50] of pribor;
yesno: char;
begin
assign(PFile, FilePath);
rewrite(PFile);
i:=0;
repeat
with pribors[i] do begin
clrscr;
write('ФИО клиента: ');
readln(FIO);
clrscr;
write('Тип прибора: ');
readln(PType);
clrscr;
write('Год выпуска: ');
readln(year);
clrscr;
write('Наименование дефекта: ');
readln(deffect);
clrscr;
write('Наименование детали для ремонта: ');
readln(detal);
clrscr;
write('Стоимость ремонта: ');
readln(price);
clrscr;
end;
i:=i+1;
writeln('Создать еще одну запись? (y\n)');
readln(yesno);
until yesno = 'n';
length:= i;
for i:=0 to length do
write(PFile,pribors[i]);
close(PFile);
end;

procedure ReadPriborFile(FilePath: string; var pribors: array[0..50] of pribor;var length: integer);
var
i: byte;
PFile: file of pribor;
begin
{Чтение из файла}
assign(PFile, FilePath);
reset(PFile);
i:=0;
while not eof(PFile) do begin
read(PFile, pribors[i]);
i:=i+1;
end;
length:=i;
close(PFile);
end;

begin
repeat
textbackground(2);
textcolor(7);
clrscr;
gotoXY(1,8);
writeln(' ОСНОВНАЯ ПРОГРАММА:');
writeln('');
writeln(' 1. О программе');
writeln(' 2. Меню');
write(' 3. Выход');
key:= readkey;
case key of
'1': begin
clrscr;
gotoxy(1,9);
writeln(' Программа по ремонту бытовых приборов.');
writeln(' Запись и чтение данных из файла: ', PathToFile);
write(' Составлена студентом группы БТК-101, ');
textcolor(2);
writeln('Егоровым Павлом');
textcolor(7);
writeln;
write(' Для возврата в меню нажмите 7');
repeat
key:=readkey;
until key = '7';
end;
'2': begin
repeat
clrscr;
gotoxy(1, 8);
writeln(' МЕНЮ');
writeln;
writeln(' 1. Создать файл с данными.');
writeln(' 2. Просмотр данных из файла.');
writeln(' 3. Приборы, имеющее наибольшую стоимость ремонта');
writeln(' 4. Кол-во приборов одного типа, требующих одинаковых деталей для ремонта');
writeln;
write(' 7. <<');
key:= readkey;
case key of
'1': CreatePriborFile(PathToFile);
'2': begin
clrscr;
ReadPriborFile(PathToFile, pribors, length);
for i:=0 to length - 2 do
with pribors[i] do
writeln(FIO, ' ', PType, ' ', year, ' ', deffect, ' ', detal, ' ', price);
key:= readkey;
end;
'3': begin
max:=pribors[i].price;
nam:=pribors[i].detal;
For i:=2 to length - 2 do
with pribors[i] do
if pribors[i].price=max then
begin
max:=pribors[i].price;
nam:=pribors[i].detal;
end;
writeln('maximalnaja price remonta',' ',nam,'=',max);
end;
'4': begin
clrscr;
write('Введите тип прибора: ');
readln(PType);
writeln;
write('Введите наименование дефекта: ');
readln(deffect);
writeln;
writeln('Результат поиска:');
ReadPriborFile(PathToFile, pribors, length);
j:=0;
for i:=0 to length - 2 do
if pribors[i].PType = PType then with pribors[i] do begin
writeln(FIO, ' ', PType, ' ', year, ' ', deffect, ' ', detal, ' ', price);
j:=j+1;
if pribors[i].detal = detal then with pribors[i] do begin
writeln(FIO, ' ', PType, ' ', year, ' ', deffect, ' ', detal, ' ', price);
j:=j+1;
end;
end;
writeln;
if j <> 0 then
write('Найдено записей: ',j)
else
write('Записей не найдено!');
key:= readkey;
end;
end;
until key = '7';
end;
end;
until key = '6';
end.

Добавлено через 1 минуту
файл от куда ему читать создается в процессе выполнения программы с помощью ввода данных с клаввиатуры...

просто в дано еще раз добавил и все стало ок)

Добавлено через 10 минут
не коректно прога работает((
Сведений о приборах, имеющих наибольшую стоимость ремонта;
Информации о количестве приборов одного типа, требующих одинаковой детали для ремонта.
не выполняет эти операции((

Добавлено через 8 часов 32 минуты
ап)))))))))

Добавлено через 14 часов 33 минуты
помогите плиз люди.........

0