SlavPas_3

Type
    TCalcRec = Record
        FCode, FKPrice, FNorm, FCost: LongInt;
        FName: String;
    End;
Var
    I: Integer;
    A, B: Array [1..5] Of TCalcRec;
    FD: File Of TCalcRec;
Begin
    For I:= 1 To 5 Do Begin
        Write('Код продукта #', I, '?: ');
        ReadLn(A[I].FCode);
        Write('Название продукта #', I, '?: ');
        ReadLn(A[I].FName);
        Write('Цена за КГ продукта #', I, '?: ');
        ReadLn(A[I].FKPrice);
        Write('Норма закладки продукта #', I, '?: ');
        ReadLn(A[I].FNorm);
        A[I].FCost:= A[I].FKPrice * A[I].FNorm;
    End;
    Assign(FD, 'testf.txt');
    ReWrite(FD);
    For I:= 1 To 5 Do Write(FD, A[I]);
    Close(FD);
    Reset(FD);
    For I:= 1 To 5 Do Begin
        Read(FD, B[I]);
        WriteLn('Код продукта #', I, ': ', B[I].FCode);
        WriteLn('Название продукта #', I, ': ', B[I].FName);
        WriteLn('Цена за КГ продукта #', ': ', B[I].FKPrice);
        WriteLn('Норма закладки продукта #', I, ': ', B[I].FNorm);
        WriteLn('Стоимость продукта #', I, ': ', B[I].FCost);
        WriteLn('---Нажмите Enter, чтобы просмотреть следующий продукт---');
        ReadLn;
    End;
    Close(FD);
End.