Выберите запись с ошибкой. Т:=9 Ф:=7,96 Ц:=8.7 Ч:=0

як шо я не помиляюсь то ф:=7,96

program xxx;

var a,s : string;

    i: integer;

begin

    writeln ('введите слово и символ-');

    readln (s,a);

    for i: =1 to length(a) do

        if copy (s,i,1)=a then writeln (i);

    readln

end.

var

x,y: real;

begin

x: =-1;

while x< =1 do

begin

y: =x*x*x;

writeln(y);

x: =x+0.1;

end;

end.