Составить программу в паскаль опрашивается 10 человек. сколько человек любят мороженое? сделать с оператора цикла

Program morojenka;
var i,s:integer;t:string;
begin
s:=0;
for i:=1 to 10 do 
begin 
Writeln('Любите ли вы мороженое?(Введите "Да" или "Нет")'); 
Readln(t); 
if t='Да' then s:=s+1; end;
Writeln(s,' любят мороженое')
end.