Составления программ с изпользованием записи

[locdoc]

Предусмотреть вывод значения для полей элементов массива записей по следущим к ключам : по наименованию товара по названию фирмы, по чистой прибыли, по издержкам, по типу деятельности. определить тип деятельности с минимальными издержками

const
  n = 5;
 
type
  TItem = record
    FItemName: string;
    FFirmTitle: string;
    FClearMargin: real;
    FCosts: real;
    FActType: string // можно перечислимым сделать, но необязательно
  end;
 
  TItemMas = array [1..n] of TItem;
 
//------------------------------------------------------------------------------
 
function FindMinCosts(m: TItemMas): integer;
var
  t, i: integer;
  min: real;
begin
  t := 1;
  min := M[1].FCosts;
  for i := 2 to n do
    if M[i].FCosts < min then t := i;
  FindMinCosts := t
end;
 
//------------------------------------------------------------------------------
 
var
  M: TItemMas;
  i, j: integer;
 
begin
  for i := 1 to n do  // приглашение ко вводу сами напишите
    begin
      readln(M[i].FItemName);
      readln(M[i].FFirmTitle);
      readln(M[i].FClearMargin);
      readln(M[i].FCosts);
      readln(M[i].FActType)
    end;
  writeln('1 - по наименованию товара');
  //<...>
  writeln('5 - по типу деятельности');
  writeln('Ваш выбор: ');
  readln(i);
  case i of  // опять же покрасивее ввод сделаете сами
    1: begin
        for j := 1 to n do
          writeln(j,') - ',M[i].FItemName)
       end;
    2: begin
        for j := 1 to n do
          writeln(j,') - ',M[i].FFirmTitle)
       end;
    3: begin
        for j := 1 to n do
          writeln(j,') - ',M[i].FClearMargin)
       end;
    4: begin
        for j := 1 to n do
          writeln(j,') - ',M[i].FCosts)
       end;
    5: begin
        for j := 1 to n do
          writeln(j,') - ',M[i].FActType)
       end;
  end;
  writeln('Минамальные издержки у вида деятельности: ', M[FindMinCosts(M)].FActType);
  readln
end.

можете ее сократить и с блок схемой помоч!!!

[Stilet]

А зачем сокращать? Она работает?

[locdoc]

Сообщение от Stilet

А зачем сокращать? Она работает?

да работает!!

[Stilet]

Ну так и не морочь голову раз работает.
Бери FCEditor и с его помошью рисуй блок-схему.