look at me when i tear your face off

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  y,i,p,max,min,k:integer;
        c:Tcanvas;
        m:array [1..5] of string;
        v:array [1..100] of integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
c:=Image1.Canvas;
c.Brush.Color:=clwhite;
Image1.Canvas.Pen.Color:=clblack;
Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
        randomize;
        min:=100000;
        for i:=1 to 5 do begin
            m[i]:=InputBox('mena','zadaj meno','') ;
            v[i]:=random (100);
            if v[i]>max then begin
                p:=i;
                max:=v[i];
                end;
            if v[i]<min then begin
                k:=i;
                min:=v[i];
                end;
        end;
                for i:=1 to 5 do begin
                y:=y+20;
                c.TextOut(10,y,m[i]+'-'+inttostr(v[i])+'rokov');
                end;
                y:=y+50;
                c.TextOut(10,y,'najstrarsi ma '+inttostr(max)+' rokov '+m[p]);
                y:=y+20;
                c.TextOut(10,y,'najmladsi ma '+inttostr(min)+' vola sa '+m[k]);
end;

end.