Incompatible types : 'char' and 'string'

Program code;
Uses WinCrt;
Var
x:String;
z:Char;
r:Integer;
Begin
WriteLn('donner un mot'); Readln(x);
z:=Copy(x,((Length(x)) Div 2), 1);
r:= Ord(z);
WriteLn (r);
End.

j'ai essayée mais le programme ne fonctionne pas et affiche :
incompatible types : 'char' and 'string'