файлы, вывести в файл для печати инфу об ассорт. обуви Опции

[brahma]

( сори за "много букав в условиях,читать долго" )

Создать файл, содержащий сведения об ассортименте обуви в магазине фирмы. Каждая запись содержит следующую информацию: артикул, наименование, цена, количество. Артикул начинается в буквы "Д" для дамской обуви, "М" для мужской, "П" для детской. Количество записей произвольное.
Вывести в файл для печати следующую информацию :
а) о наличии и стоимости обуви указанного артикула и
б) о наличии и стоимости обуви по первой букве атикула.

Как редактировать прогу,чтобы она решала задачу ?

uses crt;
var
 naim:string;
 art:char;
 price,kol:integer;
 f:text;
 s:string;
 c:char;
 i,n,max:integer;
begin
  clrscr;
  write('Введите полный путь к файлу : ');
  readln(s);
  assign(f,s);
  {$I-}
  reset(f);
  {$I+}
  if IOResult<>0 then
  begin
  write('Файл не доступен­.Для завершения программы нажмите  - ENTER. Для создания файла  - 1 : ');
  read©;
  if c='1' then
   begin
    rewrite(f);
    clrscr;
    write('Введите количество записей : ');
    readln(n);
    for i:=1 to n do
     begin
      clrscr;
      write('Артикул товара (д- жен, м- муж, п- дет) : ');
      readln(art);
      write('Наименование товара  : ');
      readln(naim);
      write('Цена товара : ');
      readln(price);
      write('Количество товара : ');
      readln(kol);
      write(f,art);
      write(f,'  ');
      writeln(f,price);
     end;
  close(f);
  reset(f);
  end
 else
  halt(1);
end;

Сообщение отредактировано: brahma - 18.12.2007 21:10