Datori un IT

Programma: 

program TonnasKilogramos; //Programmas nosaukums 
uses crt; //Izmantotās bibliotēkas 
var num, res:integer; //Piesaistītie lielumi 
begin //Programmas sākums 
clrscr //Tiek attīrīts viss ekrāns 
writeln('Ievadam skaitli tonnas'); //Tiek izvirzīts teksts, pēc kura lietotājam jāievada skaitlis 
readln (num); //Tiek ievadīts un nolasīts skaitlis 
if (num = 0) then //Tiek veikta pārbaude vai ievadītais skaitlis nav 0 
begin //Tiek uzsākta programma 
writeln('No 0 nav iespējams veikt pārveidojumu'); //Ja rezultāts bijis 0 tiek uzrādīta kļūda 
writeln('Restartē programmu un mēģini vēlreiz'); //Ja rezultāts bijis 0 tiek uzrādīta kļūda 
end //Programma tiek pārtraukta un novirzīta uz beigām 
else //Ja rezultāts nav bijis 0, tiek uzsākta programmas darbība 
begin //Programma tiek uzsākta 
res:=num/1000; //Tiek veikta darbība, lai tonnas pārvērstu killogramos 
writeln(res:0:0) //Tiek uz ekrāna parādīts rezultāts 
readln; //Gaida "enter" lai beigtu programmas darbību 
end; //Programma tiek beigta 
readln; //Pēdējais lasījums 
end. //Programmas beigas 

 Un compilējot uzrāda kļūdu - 
 Error(s): 
 source.pas(6,1) Fatal: Syntax error, ";" expected but "identifier WRITELN" found 

 Taču kodā viss ir kārtībā ar to rindu, ir galā ";".