Проверьте есть ли ошибки ,срочно пожалуйста

program n_4 ;

var p ,m ,v:real;
begin
writeln ( 'Определение плоности вещества ')
write :( ' Введите массу вещества ' )
writeln( 'Определение массы вещества ')
р=m\v
writeln( ' p=')
end.

ИСПРАВЛЕНОprogram n_4 ;var p ,m ,v :real;beginwriteln ( 'Определение плотности вещества ');writeln( ' Введите массу вещества ' );readln(m);writeln( ' Введите объем вещества ' );readln(V);writeln( 'Плотность вещества ');р=m/v;writeln( ' p=', p);end.