Найти ошибку в коде

program COSSET;
uses crt;
var
c,d,a,k,i,u,z,r,q,w,e,n,y,m,b,v,o,s,x:real;
begin//начинаю ввод
write('Вас приветствует операционная система Cosset v1.01 полный список команд для Cosset v1.01 находится в справочнике прилагаемым с загрузочными дискетами в коробке. Для начала работы введите ячейку неизвестности с=');
readln(c);
write('Ваши данные сохраняются в оперативной памяти вашей новой чистой системе. Продолжите заполнять сегменты сейчас требуется ввод данных в сегмент d=');
readln(d);
write('Ввод сегмента а=');
readln(a);
write('На этом этапе ОС остался последний неучтенный сегмент маркировки k=');
readln(k);
write('Ваши данные подготавливаются осталось нескоько секунд до завершения первого этапа ОС');
i:=c+d+a+k;
u:=c-d-a-k;
z:=c*d*a*k;
r:=c/d/a/k;
writeln('i=',i);//вывожу данные
writeln('u=',u);
writeln('z=',z);
writeln('r=',r);//второй этап
write('Готово. Начинается второй этап');
write('Выполните ввод зоны q=');
readln(q);
write('Ввод зоны w=');
readln(w);
write('Успешно. последняя зона e=');
readln(e);
write('Данные подготавливаются поалуйста подождите');
n:=q+w+e;
y:=q-w-e;
writeln('n=',n);
writeln('y=',y);
write('Теперь действие *');
write('Ввод* b=');
readln(b);
write('Ввод* v=');
readln(v);
m:=b*v;
writeln('m=',m);
write('Теперь действие /');
write('Ввод/ o=');
readln(o);
write('Ввод/ s=');
readln(s);
x:=o/s;
writeln('x',x);
write('Сохранение информации...');
write('Переход...');
write('Выключение...');
end.