Что под ё, у, ц, т, п, о, н?

Var 
  a1,a2,a3: string; 
begin
  write ('Введите 1-е слово: ');
  readln (a1);
  write ('Введите 2-е слово: ');
  readln (a2);
  write ('Введите 3-е слово: ');
  readln (a3);
  if (length(a1)<>length(a2)) and (length(a1)<>length(a3))
    then
      if length(a1)<length(a2) 
        then
          if length(a1)<length(a3)
            then writeln('Самое короткое слово: ',a1)
            else writeln('Самое короткое слово: ',a3)
        else
          if length(a2)<length(a3)
            then writeln('Самое короткое слово: ',a2)
            else writeln('Самое короткое слово: ',a3)
    else writeln('Все слова одинаковой длины');
end.

Введите 1-е слово: волк
Введите 2-е слово: олень
Введите 3-е слово: косуля
Самое короткое слово: волк

где ошибка
Program myprog;
const rad=3.14/180;
var a,y,z,x,cos,sin:real;
//переменные x,cos,sin никак не определены, следовательно следующее выражение не будет посчитано (=0). кроме того cos и sin это встроенные функции Паскаля. Не стоит использовать их как имена переменных
begin a:=(2*cos*(x-rad*30))/(1/3+((sin*2)*(y+2))); 
writeln('z='); 
readln(z); 
y:=(z*z/5+(z*z)/7);
writeln(' y = ',y); 
writeln('введите значение x : ' ); 
readln(x);
// Вы ввели значение х в конце программы. Оно нигде в расчетах уже не сможет участвовать
WriteLn(' ответ:',a);
readln(a); 
End.