Срочно. 4,5 и 7задание ФОТО ПРИКРЕПИЛ

4)begin  

var symbol := ReadChar('Введите символ:');  

Println('ASCII:', Ord(symbol));  

end.

5)Для первого слова

var

 s:string;

 i,k:integer;

begin

write('Vvedite stroku: ');

readln(s);

k:=0;

for i:=1 to length(s) do

begin

 if (s[i]<>' ') and (k<1) then write(s[i]);  

 if (s[i]=' ') and (k<2) then

  begin

   write (s[i]);

   k:=k+1;

  end;

end;

readln;

end.