(PascalABC.NET)вопрос по записям

[destra1j]

я уже делал задачи с записями но там пользователь вводил значение полей но тут мне задали сделать так чтоб поля уже были заполнены в условии программы и их пользователю вводить не приходилось.Подскажите как это сделать буду очень благодарен.
Работаю в Паскале ABC.NEN

[Alar]

делали? где наработки? ссылки на темы? + где нормальный заголовок темы?

[destra1j]

program pract;
type Production=record
 kod_tovara:string;
 nazva:string;
 firma:string;
 data_vig:integer;
 kilk:integer;
 cena:integer;
 end; 
var
Sklad :array [1..100] of Production;
i,n:integer;
begin
for I:=1 to 100 do 
   begin
   writeln ('введите сведения о’, i , ‘-м товаре'); 
   
   writeln ('введите номер товара');
   readln (Sklad[i].kod_tovara); 
   writeln ('введите название'); 
   readln (Sklad[i].nazva); 
   writeln ('введите фирму'); 
   readln (Sklad[i].firma); 
   writeln ('введите дату производства'); 
   readln(Sklad[i].data_vig); 
   writeln ('введите введите количество'); 
   readln(Sklad[i].kilk); 
   writeln ('введите цену'); 
   readln (Sklad[i].cena);
   end;
 writeln ('ввод закончен');
 writeln;
 writeln('введите цену товара');
 readln(n);
 for I:=1 to 100 do 
      if Sklad[i].cena=n then 
         writeln(' название товара : ’, Sklad[i].kod tovara');
end.

вот моя прошлая задача в которой пользователь вводит данные

[puporev]

type zap=record
         p1:string[20];
         p2:integer;
         p3:double;
         end;
const n=3;        
      z:array[1..n]of zap=((p1:'название1';p2:25;p3:25.65),
                           (p1:'название2';p2:15;p3:35.65),
                           (p1:'название3';p2:35;p3:15.65));
var i:byte;
begin
for i:=1 to n do
writeln(z[i].p1,' ',z[i].p2,' ',z[i].p3);
end.

[destra1j]

спасибо

[Serge_Bliznykov]

самый простой способ - это объявить файл и скинуть все ваши записи в него.
например:

type Production=record
 kod_tovara:string[255];
 nazva:string[255];
 firma:string[255];
 data_vig:integer;
 kilk:integer;
 cena:integer;
 end;
const ProductFileName  = 'Product.db';
var
Sklad :array [1..100] of Production;
f : file of Production;
i,n:integer;
begin
  If Not FileExists(ProductFileName) then begin
    Write('Сколько записей будете вводить: '); ReadLn(n);
    for I:=1 to n do begin
     writeln ('введите сведения о’, i , ‘-м товаре'); 
     writeln ('введите номер товара');
     readln (Sklad[i].kod_tovara); 
     writeln ('введите название'); 
     readln (Sklad[i].nazva); 
     writeln ('введите фирму'); 
     readln (Sklad[i].firma); 
     writeln ('введите дату производства'); 
     readln(Sklad[i].data_vig); 
     writeln ('введите введите количество'); 
     readln(Sklad[i].kilk); 
     writeln ('введите цену'); 
     readln (Sklad[i].cena);
    end;
    writeln ('ввод закончен');

    {теперь сохраним все записи из массива в файл}
    Assign(f, ProductFileName );
    Rewrite(f);
    for i:=1 to n do Write(f, Sklad[i]);
    Close(f);
  end
  else begin {если есть файл, читаем из него}
    Assign(f, ProductFileName );
    Reset(f);
    n:=0;
    while Not eof(f) do begin
       inc(n);
       Read(f, Sklad[n])
    end;
    Close(f);
  end;

.... 
дальше ваша программа....