i do to input this

Function Key:char;
  var c:char;
  begin;
    if not eof then
       read(c)
    else cor:=false;
    key:=c;
  end;

but i have WA 1
when i write first test in my own my program output 'YES'
What shall i do to realize input correct

P.S. I read FAQ, it didn't help me in my problem

Edited by author 21.02.2008 23:54