View difference between Paste ID: JWJzMjQf and 4p5Ch4RJ

-var
+var pocet,i,hladaj,cisla,novypocet:integer;
-vstup, novy:string;
+novy: string;
-i:integer;
+
 pocet:= strtoint (inputbox ('zadajte','pocet cisel',''));
-vstup:= (edit1.Text);
+hladaj:= strtoint (inputbox ('zadajte','ake cislo hladas',''));
-novy:='';
+novy:= '';
-for i:= 1 to length(vstup) do
+novypocet:= 0;
-
+for i:= 1 to pocet do
-  if (vstup[i]>='0') and (vstup[i]<='9') or
+
-  vstup[i]>='a') and (vstup[i]<='z') or
+  randomize;
-  vstup[i]>='A') and (vstup[i]<='Z') then
+  cisla:= random(100)+1;
-  novy:= novy + vstup[i];
+  novy:= novy + ' ' + inttostr(cisla);
-
+  if hladaj=cisla then
   novypocet:= novypocet + 1;
 end;
-
+
-end.
+memo1.Lines.Add(inttostr (hladaj) + ' sa nachadza tu ' + inttostr(novypocet));
 end;