Обработка данных комбинированного типа

[ReginA123]

написать прогу для формирования массива записей 10шт, содержащих сведения о каком-либо объекте. полями записи являются св-ва этого объекта. подготовить форму для создания запроса на выборку данных из создалнного массива записей по задаваемым значениям двух-трех свойств объекта. объект-паспорт компьютера. свойства-модель ,ram, vram.hdd,cd,монитор,прочее оснащение,цена,стоимость гарантии,перепроданная подготовка, спец компоновка

[Вадим Мошев]

написать прогу

Напишу за небольшое вознаграждение.
Ссылка у меня в подписи. Если согласны, обращайтесь.

[ReginA123]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows;

const
  n=10;

type
  telem=record
         model:string;
         RAM:string[4];
         VRAM:string[4];
         HDD:string[4];
         CD:string[3];
         monitor:string[5];
         price:integer;
         price_g:integer;
         PO:string[15]8
         PP:string[15];
         CK:;string[15]
        end;
tmas=array [1..n] of telem;
var
  Passport:tmas;
  mn,choice,i:Integer;
  exit_:char;
//-------------------------------------------------------------------

//---------------------------------------------------------------------
procedure vvoddannuh(var a:tmas); //ввод данных
var i,j:Integer;
begin
  for i:=1 to n do
  begin
    Writeln('введи модель');
    Readln(a[i].model);
    Writeln('введи Ram(да,нет)');
    Readln(a[i].RAM);
    Write('введи VRam(да,нет))',#10,'=>');
    Readln(a[i].VRAM);
    Write('введи hdd(да,нет))',#10,'=>');
    Readln(a[i].HDD);
    Write('введи cd(да,нет))',#10,'=>');
    Readln(a[i].CD);
    Write('введи монитор )',#10,'=>');
    Readln(a[i].monitor);
    Write('введи прочее оснащение)',#10,'=>');
    Readln(a[i].po);
   Write('введи цену)',#10,'=>');
    Readln(a[i].price);
    Write('введи стоимость гарантии)',#10,'=>');
    Readln(a[i].price_g);
    Write('введи предпродажную подготовку)',#10,'=>');
    Readln(a[i].PP);
    Write('введи специальную компоновку)',#10,'=>');
    Readln(a[i].CK);
  end
end;
//------------------------------------------------------------------------------
Procedure printdannuh(a:tmas); //вывод данных
var i,j:Integer;
begin
   writeln ('--------------------------------------------------------------------------');
   writeln ('');
   writeln ('--------------------------------------------------------------------------');
   for i:=1 to n do
   begin
      write(a[i].model,' ',a[i].RAM,'  ',a[i].VRAM,' ',a[i].HDD,' ',a[i].CD,' ',a[i].monitor,' ',a[i].VRAM,' ',a[i].VRAM,' ');
      Writeln
   end;

end;

вот что у меня получилось,но я не знаю как все к форме присоединить(((

[Вадим Мошев]

Для присоединения к форме надо писать в графическом режиме. Для этого вам надо работать с компонентами TEdit, TButton, возможно, TStringGrid (скорей всего его нужно будет использовать), TLabel. Если вы не создавали никогда ранее приложений с графическим интерфейсом, то быстро вам это не объяснить будет...

[ViktorR]

Для начала:
Если можешь открыть форму, то сможешь в неё добавить поля для ввода данных (TEdit). Для подписывания полей ввода используй объект TLabel, который можешь разместить рядом с полем (слева, сверху) и, используя его свойства, сделать надпись.
Добавь на форму две кнопки. При нажатии на одну из них будут обрабатываться введённые в поля TEdit данные (в этих полях данные строкового типа и для работы с числами следует выполнить перевод в соответствующее представление: целое, вещественное), а при нажатии на вторую завершается работа программы.
В верхней части формы вставь объект TLabel и в его свойствах введи текст.
Например: "Заполните необходимые поля и нажмите кнопку Ok".
При нажатии кнопки будет запущена обработка (ее следует писать), в которой можно проверить корректность заполнения полей, проверить заполнение обязательных полей, сохранить данные, очистить поля для нового ввода.
В последующем можно добавить кнопки для просмотра введенных данных, определить поле и кнопку для поиска нужных данных, научиться открывать дополнительные формы, ...

Как-то так, ...
PS: Консольный и графический варианты исполнения задачи различаются ...