Не могу составить блок схему по данной программе

Program magazzz;
Type tovari=record
 tov:string;
 vart:real;
 kr:string;
 tr:string;
 kil:integer;
 zst:real;
end;
 Var t1,t2:tovari;
Begin
Writeln('Введите название товара');
Readln(t1.tov);
Writeln('Введите цену товара');
Readln(t1.vart);
Writeln('Введите страну изготовителя');
Readln(t1.kr);
Writeln('Введите срок годности');
Readln(t1.tr);
Writeln('Введите количество товара');
Readln(t1.kil);
t1.zst:=t1.vart*t1.kil;
 
Writeln('Второй товар');
Writeln('Введите название товара');
Readln(t2.tov);
Writeln('Введите цену товара');
Readln(t2.vart);
Writeln('Введите страну изготовителя');
Readln(t2.kr);
Writeln('Введите срок годности');
Readln(t2.tr);
Writeln('Введите количество товара');
Readln(t2.kil);
t2.zst:=t2.vart*t2.kil;
 
Writeln('Название  Цена      Страна      Срок годности  Количество  Сума товара');
Writeln(' ',t1.tov,'   ',t1.vart:6:2,'     ',t1.kr,'       ' ,t1.tr,'         ',t1.kil,'         ',t1.zst:6:2);
Writeln(' ',t2.tov,'   ',t2.vart:6:2,'     ',t2.kr,'       ' ,t2.tr,'         ',t2.kil,'         ',t2.zst:6:2);
 
if t1.vart>t2.vart then Writeln(t1.tov)
else Writeln(t2.tov);
 
Readln;
End.