Помогите исправить эту программу

program pr3;
var x:integer;
begin.
writeln('Введите оценку');
readln(x);
case x of.
1:writeln('Плохо');
2:writeln('Неудовлетворительно');
3:writeln('Удовлетворительно');
4:writeln('Хорошо');
5:writeln('Отлично');
else writeln('Ошибка');
end.

program pr3;

var

   x : integer;

begin

   writeln('Введите оценку');

   readln(x);

   case x of

       1 : writeln('Плохо');

       2 : writeln('Неудовлетворительно');

       3 : writeln('Удовлетворительно');

       4 : writeln('Хорошо');

       5 : writeln('Отлично');

       else writeln('Ошибка');

   end;

end.

точки в 3 и 6 строках это как минимум странно.

оператор выбора case должен завершаться end;

ну и отсутствие форматирования кода это плохо.