Дано слово w. составьте подпрограмму -функцию, которая преобразует слово w в слово v, содержащее те же буквы ( и в том же количестве), что и слово w, но расположенные в алфавитном порядке б) даны слово v и w. составе алгоритм позволяющий установить, можно ли слово w получить из слова v перестановкой букв

Это на паскале 
Буква А
var  i, o, k, i2: integer;  s, s1: string;  i1: char;  a: array[0..25] of char; begin  readln(s);  readln(k);  i := 0;  for i1 := 'A' to 'Z' do  begin    a[i] := i1;    inc(i);  end;  for i := 1 to length(s) do  begin    for i2 := 0 to 25 do      if a[i2] = s[i] then        write( a[(26+(i2 - k)) mod 26])  endend.