Военкомат

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
p,k,i,d:integer;
x:array [1..50] of integer;
begin
Randomize;
d:=170;
For i:=1 to 50 do
begin
x[i]:=Random(50)+150;
write(x[i]:4);
end;
writeln;
For i:=1 to 50 do
begin
If x<d then k:=k+1;
end;
p:=k*100/
writeln('? =' , p);
readln;
end.

var
  Form1: TForm1;
max,min,s,p,n,x,y,i,j,k:integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
p:=1;
s:=0;
If (Edit1.Text='') then MessageDlg('Введите размерность массива!',mtError,[mbYes,mbNo],0) else begin
  x:=StrToInt(Edit1.Text);
  StringGrid1.ColCount:=x;
  Randomize;
   For i:=0 to x do begin
    StringGrid1.Cells[i,0]:=IntToStr(i);
      StringGrid1.Cells[i,1]:=IntToStr(random(30)-random(30));
end;
end;
end;
 
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
max:=StrToInt(StringGrid1.Cells[0,1]);
min:=StrToInt(StringGrid1.Cells[0,1]);
 for i:=0 to x do begin
if strtoint(StringGrid1.Cells[i,1])<min then min:=strtoint(StringGrid1.Cells[i,1]);
if strtoint(StringGrid1.Cells[i,1])>max then max:=strtoint(StringGrid1.Cells[i,1]);
if strtoint(StringGrid1.Cells[i,1]) mod min=0 then k:=k+1; // tyt neznayu
 label1.Caption:=inttostr(min);
 label2.caption:=inttostr(max);
 label6.Caption:=inttostr(k);
end;
end;
end.

chislo:=0{chislo:integer};
for i:=0 to x do begin
if strtoint(StringGrid1.Cells[i,1]) mod min=0 then chislo:=choslo+1;