Pascal/Turbo Pascal - Ayuda con programa en pascal.

Buenas comunidad les vengo a pedir ayuda con este programa que hice:

Program Bandera;
uses crt;
var
b1,b2,b3:char;
amarillo:char;
azul:char;
rojo:char;
begin
clrscr;
writeln('Introduzca el primer color de la bandera de italia:');
readln(b1);
writeln('Introduzca el segundo color de la bandera de italia:');
readln(b2);
writeln('Introduzca el tercer color de la bandera de italia:');
readln(b3);
If (b1>verde) or (b2>blanco) or (b3>rojo) then
write('Los colores coniside con la bandera de italia')
else
write('Los no colores coinside con los colores de la bandera de italia');
readkey
end.

el ejercicio que me mandaron hacer en la universidad dice asi:

hacer un programa que dados 3 colores diga si pertenece a la bandera de italia o no.

Ok esto me corre pero que pasa? asi ponga o no ponga los colores me dice que esta bueno entonces quiero que me diga cuando son o no :( help me. thanks

{Lo tuyo corregido}

Program Bandera;
uses crt;
var
b1,b2,b3:string;
amarillo:char;
azul:char;
rojo:char;
i : integer;
begin
clrscr;
writeln('Introduzca el primer color de la bandera de italia:');
readln(b1);
writeln('Introduzca el segundo color de la bandera de italia:');
readln(b2);
writeln('Introduzca el tercer color de la bandera de italia:');
readln(b3);
If (b1 = 'verde') and (b2 = 'blanco') and (b3 = 'rojo') then
begin
clrscr;
writeln('Los colores coinciden con la bandera de italia');
for i := 1 to 5 do
begin
TextBackground(2);
gotoxy(2,2 + i);write(' ');
TextBackground(15);
gotoxy(7,2 + i);write(' ');
TextBackground(4);
gotoxy(12,2 + i);write(' ');
end;
TextBackground(0);
end
else
write('Los colores no coincide con los colores de la bandera de italia');
readkey
end.

Me pueden ayudar con un a hacer un programa que lea los números enteros que hay del 1 al 20