Prosiłbym jeszcze o wykonanie tego zadania w pascalu jeśli można

Ja bym coś takiego zrobił:
zdefiniował bym tablice
tekst: array[1..n] of string;
(wybierasz jaki długi chcesz tekst wprowadzić)
Następnie każdej literce z klawiatury przypisałbym zmienna.
Jeżeli zostanie naciśnięta literka:
a,s,d,f,g,h,j,k,l (zamiast przecinków : or) :=3;
itp.
Na końcu wpisałbym na ekran tekst wprowadzony przez osobę i zamieniłbym go na liczby.
Jak wy byście zrobili te zadanko?