Заменить три последних символа у слов, больших определенной длины

Задача: 

Дан массив слов. Заменить последние три символа слов, имеющих выбранную длину на символ "$".

Алгоритм решения задачи: 

Если длина очередного слова больше 5-ти символов, то выполнить нижеследующие действия:

  1. Создать пустую строку s.
  2. Добавить в нее по очереди все символы текущего слова, кроме трех последних.
  3. Добавить к строке s символ $.
  4. Заменить в массиве слов прежнее слово на новое, которое получилось в переменной s.
Программа на языке Паскаль: 

const n = 10;
var
	arr: array[1..n] of string;
	s: string;
	i,j: byte;
 
begin
	for i:=1 to n do
		readln(arr[i]);
	writeln;
 
	for i:=1 to n do
		if length(arr[i]) > 5 then begin
			s := '';
			for j:=1 to length(arr[i]) - 3 do
				s:= s + arr[i,j];
			s := s + '$';
			arr[i] := s;
		end;
 
	for i:=1 to n do
		write(arr[i],' ');
	writeln;
 
end.

Пример выполнения программы:

big
mouses
industry
window
paper
variable
steelshits
cat
keyboard
display

big mou$ indus$ win$ paper varia$ steelsh$ cat keybo$ disp$