Помогите пожалуйста с программами по пасклю...

var x:byte;
begin
Writeln('Enter chislo');
Readln(x);
if x in [0..5] then writeln('Chislo v promezhutke 0..5');
readln;
end.

var x:byte;
begin
writeln('Vozrast ?');
readln(x);
case x of
0..6:writeln('Doshkolnik');
7..18:writeln('Uchenik');
19..60:writeln('Rabotnik');
61..255:Writeln('Pensioner');
else writeln('OMG');
end;
readln;
end.

var a1,a2,a3:integer;
begin
writeln('Enter chisla');
readln(a1,a2,a3);
if (a1< a2)and(a1< a3) then writeln(a1,' menshe vseh');
if (a2< a1)and(a2< a3) then writeln(a2,' menshe vseh');
if (a3< a1)and(a3< a2) then writeln(a3,' menshe vseh');
readln;
end.

1. бла-бла описание переменных и промежутка set бла-бла кодпрограммы бла бла.. . if i in s then writeln("Принадлежит") else writeln("не принадлежит"); бла-бла end.

2 бла-бла описание переменных и констант dosh = 0..7; u4enik = 8-18 ...бла-бла кодпрограммы бла бла.. .
case v of
dosh: writeln ("Дошкольник")
u4enik: writeln ("Ученик")
rab: writeln ("Работник")
oldfucker: writeln ("Пенсионер")
бла-бла end.

3. ну тут вообще фигня, гдето готовый код валялся
uses crt;
const
t=3;
m=99;
var
a:array[1..t] of integer;
i,max,min,S,Mini:integer;
begin
clrscr;
randomize;
for i:=1 to t do
begin
a:=random(m);
write(a:3);
end;
min:=a[1];
for i:=2 to t do
if a[ i ] < min then begin min:=a[ i ]; mini:=i; end;

writeln(#10#13,'rezultat:',min);
end.

и вообще глючно тут массивы отображаются

ПЕРВАЯ!!! !
programm chisla
var
x:real;
begin
Writeln('Программа проверяет входит ли ваше вводимое число в промежуток от 0 до 5');
Writeln('Введите число');
readln(x);
if (x>0) and (x<5) then Writeln('Число принадлежит промежутку') else writeln('Число не принадлежит промежутку');
readln;
end.

Я вот только не помню какие опострофы должны быть " такие или ' такие!

А если нужна то пиши на почту может завтра сделаю