Не могу понять программу на паскале

Что будет выведено в результате вызова процедуры
Procedure a(var v:char);
var
c:char;
begin
read(c);
v:=c;
if c<>'.'then
a(v);
writeln(g);
end;

оператором
a(g);
если g - глобальная переменная типа char, а файл input содержит последовательность литер '1','2','3','4','.(точка) '

Писал программу - мне ничего не выдаёт