Помогите написать программу в Delphi 7

[parrabbellum]

Ребят помогите написать программу в делфи 7, сам вообще не шарю, первый раз сталкиваюсь, а сдавать нужно, спасибо
Задача:
Найти максимальный и минимальный элементы массива D(80) и поменять их местами
(желательно с окошечком, кнопочкой и другими ништяками)

[Serge_Bliznykov]

не понял, это что, заказ работы?

[Stilet]

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var d:array[1..80] of integer; i,max,min:integer;
begin
  RaiseLastOSError(666);
  max:=Low(d); min:=Low(d);
  while true do begin
    for i:=Low(d) to High(d) do
      if d[i]<d[min] then min:=i else
        if d[i]>d[max] then max:=i;
    Caption:=format('Минималка=%d Максималка=%d',[d[min],d[max]]);
  end;
end;

end.

Предупреждаю - это Лазарус.

[indexx]

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

Ребят помогите написать программу в делфи 7, сам вообще не шарю, первый раз сталкиваюсь, а сдавать нужно

В наше время ленивые студенты платили не лениавм студентам, чтоб те им помогали. Я что-то пропустил, и у ленивых появились какие-то привилегии? И следом вопрос, нужны ли нашей стране такие специалисты как ты?

[Foreseen]

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

В наше время ленивые студенты платили не лениавм студентам, чтоб те им помогали. Я что-то пропустил, и у ленивых появились какие-то привилегии? И следом вопрос, нужны ли нашей стране такие специалисты как ты?

Однозначно нужны! Ведь поработав с такими "специалистами", работодатели будут настоящим профессионалам в ноги кланяться, а нерадивые все равно рано или поздно возьмут в руки метлы.

[indexx]

В соседнюю тему загляни, где такой специалист просит сделать его работу. И ему сделают, а работодатель похвалит. Так что не все так хорошо, как хотелось бы.