Непонимаю почему не работает(Паскаль)

[Cas01]

Напишите программу выбора наименьшего из четырех, введенных с клавиатуры целых чисел, и производящую запрос об окончании работы.

program z31;
var a,b,c,d,min:integer;
begin
Writeln('Vvodim chisla A,B,C,D');
write('Vvedite chislo A=');readln(a);
write('Vvedite chislo B=');readln(b);
write('Vvedite chislo C=');readln(c);
write('Vvedite chislo D=');readln(d);
if ((a<b) and (a<c)) and (a<d) then max:=a else
if ((b<a) and (b<c)) then and (b<d) max:=b else
if ((c<b) and (c<a)) then and (c<d) max:=c else
if ((d<b) and (d<c)) and (d<a) then max:=d
writeln('Min chislo=',min);Writeln('Для завершения работы программы нажмите ENTER');
readln;
end.

Помогите ПЛЗ!Спасибо заранее!!!



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Alex11223]

Что такое и зачем "then and"? Почему не просто and?) И скобки странно расставлены.

Кстати, на форуме есть тег [CODE] для улучшения читаемости кода (значок #).

[Cas01]

ай блин...спасибо....я незаметил....просто делал в колледже, домой пришел, она перестала работать, а я просто правильный вариант не сохранил!СПАСИБО!

[GetMax]

Alex112233, ТС ищет минимум, при этом пишет переменную max, а вы ему про "then end" рассказываете. Хотя это тоже "интересная" конструкция

[Cas01]

GetMax я просто сначала делал эту прогу с условием что нужно найти максимум, и не всё переправил!

[Cas01]

А вот ещё просьба!
Нужно решение этой же задачи только с использованием GOTO!
помогите пожалуйста...

[Sna1L]

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

А вот ещё просьба!
Нужно решение этой же задачи только с использованием GOTO!
помогите пожалуйста...

Думаю, будет справедлив вопрос "Зачем?".

Кстати, саму программу удобнее(имхо) записать так:

program z31;
var a,min:integer;
begin
Writeln('Vvodim chisla A,B,C,D');
write('Vvedite chislo A='); readln(a);
min:=a;

write('Vvedite chislo B='); readln(a); 
if a<min then min:=a;

write('Vvedite chislo C=');readln(a);
if a<min then min:=a;

write('Vvedite chislo D=');readln(a);
if a<min then min:=a;

writeln('Min chislo=',min);Writeln('Для завершения работы программы нажмите ENTER');
readln;
end.