Delphi помогите решить

[МаксиК]

Ребята помогите решить задачи в делфи сам немогу незнаком с этим языком девушка попросила завтро уже сдать надо задачи вроде несложные Спасибо тем кто откликнется
Задачи:
1.Задан массив,состоящий из 10 чисел(1-100).Определить максимальное число данного массива?

2.Определить является ли данное число(1-100),заданное с клавиатуры четным или нечетным?

[Hollander]

1.

var a: array[1..10] of byte;
min, i: byte;
begin
Randomize;
for i:=1 to 10 do
a[i]:=random(100);

min:=a[1];
for i:=2 to 10 do
if a[i] < min then min:=a[i];

writeln(min);
end.

вторая вроде так:

var a: integer;
begin
readln(a);
if a mod 2 = 0 then writeln('Четное')
else writeln('Нечетное');
end.

[Карась]

Элементарный задачи.
Что нибудь хоть пытались?

[Hollander]

2 Карась, я что-то не так написал или это обращение к автору темы. Если я че не так написал исправьте, т.к. даже паскаля под рукой нету.

[Veiron]

writeln(x) нужно заменить на ShowMessage(IntToStr(x)) Delphi как никак...

[Карась]

2 Hollander.
Это автору.

Добавлю что диапазон 1-100 выглядит так:
1 + Random(100);

Ибо random(100); это от 0 до 99.

[МаксиК]

Парни спасибо выручили