Ввести с клавиатуры символьную строку. Вывести на экран перевернутую строку. на Pascal

Program n1;var s: string; i,n: byte; c: char;beginwrite('введите строку: ');readln(s);n := length(s) div 2; for i := 1 to n do begin c := s[i]; s[i] := s[length(s)-i+1]; s[length(s)-i+1] := c; end; writeln('перевернутая строка: ',s);readlnend.