Целое число вводится с клавиатуры поменять местами первую и последнию цифры, например ( 3767, 7763). в paskal abc

var   N: string;
m: char;
i, D: byte;
begin  
write(' N = ');
readln(N);  
writeln;
D := Length(N);
N   m := n[1];
n[1] := n[D];
n[D] := m;
write(' Результат: ');
for i := 1 to D do  
write(n[i])
end.