Pascal编写程序，高手进

你好！这是我写的，在lazarus下编译成功。
program zimu;
var ch:char;
begin
assign(input,'zimu.in');
assign(output,'zimu.out');
reset(input);
rewrite(output);
read(ch);
while ch<>'*' do begin
if (ch>='a') and (ch<='z') then writeln(ch);
read(ch);
end;
close(input);
close(output);
end.
具体过程：read(ch);先读入一个字符，因为用while循环要先对控制变量ch赋值，read语句不但有读入的意思，同时还对变量进行了赋值。
while ch<>'*' do begin
……
end;
ch<>'*'是执行while循环的条件，当ch='*'时（即读到最后一个字符时），退出循环。
if (ch>='a') and (ch<='z'):如果ch是小写英文字母。因为英文字符可以直接比较大小，所以(ch>='a') and (ch<='z')就是指ch是小写英文字母。
then writeln(ch);那么输出ch并换行
read(ch);再读入下一个字符，留给下一次循环检验。
已经很详细了，希望可以帮你。

c语言行吗？

美观起见，将每行的缩进空格改为符号`，请用记事本替换回空格符