ai giúp mình viết thủ tục này với mình cần gấp

[babykutelsd]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết 1 thủ tục nhập vào 1 xâu s và in xâu s ra màn hình theo chiều ngược lại

 

[demon311]

Procedure vl(s: string);
Var i: byte;
s1: string
Begin
For i:= length(s) downto 1 do
s1:=s1+s[i];
end;