Написать программу, находящую скорость или время или пройденное расстояние в зависимости от запроса пользователя. (авс паскаль)

Program fgg;

var

x: String[10];

t, v, s: Real;

begin

Write ('Что будем искать?: ') ;

ReadLn (x) ;

if x = 'скорость' then

begin

Write ('Введите расстояние: ') ;

ReadLn (s) ;

Write ('Введите время: ') ;

ReadLn (t) ;

WriteLn ('Скорость=', s / t) ;

end

else if x = 'время' then

begin

Write ('Введите расстояние: ') ;

ReadLn (s) ;

Write ('Введите скорость: ') ;

ReadLn (v) ;

WriteLn ('Время=', s / v) ;

end

else if x = 'расстояние' then

begin

Write ('Введите скорость: ') ;

ReadLn (v) ;

Write ('Введите время: ') ;

ReadLn (t) ;

WriteLn ('Расстояние=', v * t) ;

end

else

WriteLn ('Неверно указано, что будем искать.') ;

end.