pascal中怎么判断我输入了一个空格？

比如输入一个字符串
当碰到空格是就结束输入

如果是输入一个字符串，碰到空格就结束输入的话，就用字符读，如果不是空格，就加到字符串中去。
var
c : char;
s : string;
begin
read(c);
s:='';
while c<>' ' do
begin
s:=s+c;
read(c);
end;
……
end.
这样就可以做到输入一个字符串，碰到空格时停止输入了。

while not(eof(f)) do 表示文件f没有结束就一直读取

用char 或用 string const n=' '; var zf:string; begin read() while n<>0 do read(zf); end;