Помгите с этим 1 задание 2, и

Top и Left определяют расстояние от границы поля до верхней и левой границы контейнера, в котором поле находится, соответственно. Name определяет системное имя поля, Color-цвет поля, Text-отображаемый текст на поле, Enabled-возможность взаимодействия с полем(к примеру кликнуть по полю), Visible-видимость поля, Font-шрифт отображаемого текста. Изменить текст в поле можно с метода setText("Строка"). Разместить поле на форме можно с метода add(<компонент>), или с визуального инструмента в Visual Studio, Qt Designer. И самое важное: поле нужно в программе для взаимодействия человека с программой, а так же настройки графического интерфейса. А вот отличие для поля и формы я не знаю((

:D 
Ну го Ничего если  на паскале напишу ? 
uses crt;
var  a:array[1..50] of integer ;i,j,n,x,t,k:integer;b:string;
begin
read(n);     
for i:= 1 to n do     
begin     
a[i]:=random(15);     
write(a[i],' ');     
end;     
writeln;     
for i:= 1 to n-1 do     
for j:= i+1 to n do     
if a[i]> a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end;     
for i:= 1 to n do     
write(a[i],' ');     
writeln;     
read(x);     
for i:= 1 to n do     
 if a[i] = x then k:=k+1;     
 str(k,b);     
n:=length(b);     
 if k in  [11..19] then write (k,' раз') else     
 if k = 0 then  write('число ',x,' не встречается ')else     
case b[n] of     
 '0','1','5','6','7','8','9': write (k,' раз');     
 '3','4','2': write (k,' раза') ;     
end;
end.