Написать функцию, которая возвращает N правых символов в виде строки

uses crt;
function Right(c:string; n:integer):string;
var i:integer;
begin
if n<=0 then Right:=''
else Right:=copy(c,length(c)-n+1,n);
end;
var s:string;
    k:integer;
begin
clrscr;
writeln('s=');readln(s);
write('k=');readln(k);
write(Right(s,k));
readln
end.

function Right(c: string; n: integer):string;
begin
 if N > 0 then
  Right:= Copy(c,1,n)
 else
  Right:= '';
end;

program stroka;
var s:string;i,j:integer;z:char;
begin
read(S);
for i:=1 to length(S) do
if not(((ord(s[i])>128) and (ord(s[i])<175)) or ((ord(s[i])>224) and (ord(s[i])<241))) then delete(s,i,1);
for j:=1 to (length(S)-1) do
for i:=1 to (length(S)-j) do
if ord(s[i])>ord(s[i+1]) then begin
z:=s[i];
s[i]:=s[i+1];
s[i+1]:=z;
end;
for i:=1 to length(S) do
write(s[i]);
readln;
end.

const rs='AаБбВв................Яя';

for i:=1 to lengt(rs) do
for j:=1 to length(s) do
if rs[i]=s[j] then write(s[i]); //выведутся русские буквы по алфавиту, как в константе.

uses crt;
var s,rs:string;
    i,j:integer;
begin
clrscr;
rs:='АаБбВвГгДдЕеЁёЖжЗзИиЙйКкЛлМмНнОоПпРрСсТтУуФфХхЦцЧчШшЩщъыьЭэЮюЯя';
writeln('s=');readln(s);
for i:=1 to length(rs) do
for j:=1 to length(s) do
if rs [i]=s[j] then write(s[j]);
readln
end.