разобратся , не могу разобраться где ошибка

здравствуйте помогите где сдесь ошибка в коде

program lift;
var et1, et2: integer;
begin
writeln('Lift nahoditsa na 1m etage');
et1:=1;
et2:=1;
while (et2<>888) do
begin
if (et2<1)and(et2>9) then writeln('Nepravilniy etag')
else
 begin
  if et2>et1 then
   while et1<=et2 do
    begin
     delay(2000);
     et1:=et1+1;
     write('Lift nahoditsa na ');
     write(et1);
     writeln('m etage');
    end;
 if et<et1 then
   while et<=et2 do
    begin
     delay(2000);
     et1:=et1-1;
     write('Lift nahoditsa na ');
     write(et1);
     writeln('m etage');
    end;
  if et1=et2 then writeln('Lift nahoditsa v regime ogidania');
 end;
end;
end.

Цитата

 if et<et1 then

Переменная et не описана в разделе var

Добавлено 27.11.13, 04:51
Похоже, что et2 должно быть, а не et. Нет?

примерный код скинуть можите

Примерный код чего?

а почему он ругается на et1:=et1+1;

Добавлено 27.11.13, 05:44
как это сделать правильно

А он не на эту строчку ругается а выше. На delay
В самом начале программы напиши
Uses crt;

Я с тлф, скопировать, исправить, и бросить обратно не смогу.

uses ctr;
var et1, et2: integer;
begin
writeln('Lift nahoditsa na 1m etage');
et1:=1;
et2:=1;
while (et2<>888) do
begin
if (et2<1)and(et2>9) then writeln('Nepravilniy etag')
else
 begin
  if et2>et1 then
   while et1<=et2 do
    begin
     delay(2000)
     et1:=et1+1;
     write('Lift nahoditsa na ');
     write(et1);
     writeln('m etage');
    end;
 if et2<et1 then
   while et1<=et2 do
    begin
     delay(2000)
     et1:=et1-1;
     write('Lift nahoditsa na ');
     write(et1);
     writeln('m etage');
    end;
  if et1=et2 then writeln('Lift nahoditsa v regime ogidania');
 end;
end;
end.

на это он тоже ругаетя

1. Uses crt; а не ctr
2. После delay(2000) нет ;