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

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.