В чем ошибка?

[Jlovenpk1]

Ошибка синтаксиса "begin" "end"
46 строка.

uses crt;
type
Natur = 1..high(longInt);{натуральные числа типа longint}
Frac = record
       p:Natur; {Числитель дроби}
       q:Natur {Знаменатель дроби}
       end;
{ввод дробей}
procedure Vvod(var a,b:frac);
var i:integer;
begin
writeln('Введите числители и знаменатели двух дробей ');
writeln(' Первая дробь:');
write('  числитель=');readln(a.p);
write('  знаменатель=');readln(a.q);
writeln(' Вторая дробь:');
write('  числитель=');readln(b.p);
write('  знаменатель=');readln(b.q);
clrscr;
end;
{нахождение НОД}
function Nod(a,b:integer):integer;
begin
while a<>b do
if a>b then a:=a-b else b:=b-a;
Nod:=a
End;
{сокращение дробей}
procedure Sokr(var a:frac);
var d:Natur;
begin
d:=Nod(a.p,abs(a.q));
a.p:=a.p div d;
a.q:=a.q div d;
end;
{вывод дробей и результата после сокращения на экран}
procedure Vyvod(var a,b,c:frac);
begin
writeln('Результвт умножения:');
c.p:=a.p*b.p;
c.q:=a.q*b.q;
Sokr(c);
writeln(a.p,'/',a.q,' * ',b.p,'/',b.q,' = ',c.p,'/',c.q);
end;

end.

[MihalNik]

Отсутствуют отступы. (
  ошибка техподдержки:D
  )

Обновил ошибку. Где собственно тело программы? Смотреть структуру минимальной проги в Паскаль (типа Hello World)

[Jlovenpk1]

Обновил код.
Где ошибка?)

[Serge_Bliznykov]

а для END. (с точкой ) - где для него открывающий BEGIN ?!

так (выделил тот begin, что Вы пропустили)

....
{вывод дробей и результата после сокращения на экран}
procedure Vyvod(var a,b,c:frac);
begin
writeln('Результвт умножения:');
c.p:=a.p*b.p;
c.q:=a.q*b.q;
Sokr(c);
writeln(a.p,'/',a.q,' * ',b.p,'/',b.q,' = ',c.p,'/',c.q);
end;

begin

end.

p.s. надеюсь, Вы понимаете, что ваша программа АБСОЛЮТНО ничего делать не будет (нет вызовов фунцкий/процедур, нет кода, который будет выполнятся, только старт и финиш. и всё)....