Вывод случайного числа

[quarty]

вот надо чтоб в label1 вывело одно случайное число, вот код:

Var
a:integer;
var RandSeed: LongInt;
begin
RandSeed:=random(10);
Label1.Caption:=RandSeed;

поправьте что не так

[legendary]

randomize забыл и Label1.Caption:=IntToStr(RandSeed);

[quarty]

Спасибо все работает

[Vaigard]

А зачем написал var a:integer? Два раза var не прочитает.

[Serge_Bliznykov]

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

Два раза var не прочитает.

Vaigard, а не лучше ли сначала проверить,
чем писать ерунду?!

вот, нормально компилируется в любой версии Pascal/Delphi:

var R:Double;
var a,b : integer;
var s : string;

[Пепел Феникса]

var a:array of real;
const i=5;
var b:integer;
var s:string;
const m='bla';

все отлично будет)
так же и с type, а вот uses должен быть один на секцию(один в интерфейсе, один в реализации)