Мне надо вывести номер буквы в алфавите имени SIMA var a : array [1..4] of char; i:...

Question

Мне надо вывести номер буквы в алфавите имени 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 но это не правильно

Answer 1

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]) - 64, ' ');
end.

 а самостоятельно подобрать число никак?