Кто работает в делфи или паскале....

Поиск элемента в массиве на Delphi
unit s_found_; interface
uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs,
StdCtrls, Grids;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Edit2: TEdit;
StringGridi: TStringGrid;
procedure ButtonlClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations )
end;
var
Form1: TForm1 ;
implementation
{$R *.DFM}
{ поиск в массиве перебором }
procedure TForml.ButtonlClick(Sender: TObject);
const
SIZE=5; var
a: array[1..SIZE] of integer; //массив
obr: integer; // образец для поиска
found: boolean; // TRUE — совпадение образца с элементом
// массива
i: integer; // индекс элемента массива
begin
// ввод массива for i:=l to SIZE do
a := StrToInt(StringGridl.Cells[i-1,0]);
// ввод образца для поиска
obr := StrToInt(edit2.text);
// поиск
found := FALSE; // пусть нужного элемента в массиве нет
i:= 1;
repeat
if a = obr
then found := TRUE else i := i+1;
until (i > SIZE) or (found = TRUE);
if found
then ShowMessage('Совпадение с элементом номер '
+IntToStr(i)+#13+'Поиск успешен. ')
else ShowMessage('Совпадений с образцом нет. ');
end;
end.

program HelloWord;
{$APPTYPE CONSOLE}
begin
WriteLn('Hello, world !');
end.

300WMR готовая /// пиши в мыло ...обьясню бесплатно

program 0.0.1;
begin
write('НАДО БЫЛО УЧИТЬ');
end.

в данной программе продемонстрированы элементы синтаксиса и архитектуры turbo pascal