Uses crt; Var yazi:string; Begin clrscr; write('Yazıyı girin = ');read(yazi); Procedure ilkharf; begin clrscr; writeln('Girilen yazının ilk harfi = ',copy(yazi,0,1)); end; ilkharf; readln(yazi); end.