viết chương trình xuất ra 3 chữ cái đầu tiên của tên em bằng các kí tự * lưu ý dùng các chương trình con xuất ra màn hình một chữ cái Giúp mình với mì

Như đề bài:

uses crt;
var i:longint;
s:string;
procedure p(s:char);
begin
   write(s);
end;
begin
clrscr;
   write(‘Nhap ten em: ‘);readln(s);
   p(‘*’); p(‘*’); p(‘*’); 
   for i:=4 to length(s) do p(s[i]);
readln
end.