Процедуры и функции с параметрами строками. Pascal

[Мария163]

Описать функцию InvertStr(S, K, N) строкового типа, возвращающую
инвертированную подстроку строки S, содержащую в обратном порядке N символов строки S,
начиная с eё K-го символа. Если K превосходит длину строки S, то возвращается пустая
строка; если длина строки меньше K + N, то инвертируются все символы строки, начиная с eё
K-го символа. Вывести значения функции InvertStr для данной строки S и каждой из трех пар
положительных целых чисел: (K1, N1), (K2, N2), (K3, N3).

[revizor]

Function InvertStr(S: String; K, N: Integer): string; 
Var 
	i: integer; 
	rst: string; 
	invers: string; 
Begin
	for i:=1 to K-1 do  
		rst:=rst+s[i];
	  
	for i:=K to K+N-1 do
		invers := Concat(s[i], invers); 
	  
	rst:=rst+invers;
	  
	for i:=K+N to Length(s) do 
		rst:=rst+s[i];
	  
	result := rst; 
End;