Исправить ошибки программы на Паскале

[Маша2775]

Помогите, пожалуйста! Очень надо!
Дано задание: Найти ошибки и написать программу правильно:

program error (output);
type string = array [1..3] of char;
var x: string;
procedure Q(c: char; var d: char);
begin d:=succ(c) end;
begin x:='295'; Q(x [1],x [3]); writeln(x) end.

Ошибка здесь то, что после type не надо употреблять string , зарезервированное слово (уже есть такой тип данных - строка).

я вместо
type string = array [1..3] of char;
написала
type mas = array [1..3] of char;

Ошибка больше не выводится, но приложение запускается и сразу закрывается. Как сделать так, чтобы оно выводило результат?

[pomoshnic]

Перед end. введи readln;