Мне надобно вывести номер буковкы в алфавите имени SIMAvar a :

Мне надобно вывести номер буковкы в алфавите имени SIMA
var a : array [1..4] of char;
i: integer;
begin
a[1]:='S';
a[2]:='I';
a[3]:='M';
a[4]:='A';
for i:=1 to 4 do
write(ord(a[i])-191,' ');
end.
Исправьте ошибку. Мне выдаёт -108 -118 -114 -126 но это не правильно