Cho chương trình chưa hoàn chỉnh sau:

Giúp mình câu 10 với mọi người ơi sắp thi rồi =(((
---
Câu 10: Cho chương trình chưa hoàn chỉnh sau:
Program chao hoi;
Uses....;
Var Tieptuc: char;
Ten: ....;
Begin
Clrscr;
Tieptuc:= 'c';
While....= 'c' do
Write (‘Nhap ten cua ban: ’); Readln (.....);
Writeln ('Chao ban', Ten);
.(‘Co tiep tuc nua khong? c/k ’); readln (.....);
End;
End.
viết lại chương trình cho đúng
HAITILI
VH
Trường:......