создать массив из 4х элементов
каждому элементу присвоить по букве из своего имени
вывести на экран шийровку буквы (ее номер в алфавите)

Я писала программу, но мне выдало ошибку "Нельзя преобразовать тип char к integerа программу" Напишите что исправить.

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.