Из заданного текста удалите те его части, которые заключены в кавычки (вместе с кавычками) — Pascal(Паскаль)

uses crt;
var
    s:string;
    i:integer;
    
begin
clrscr;
write('Введите строку: ');
readln(s);
for i:=1 to length(s) do begin
    if s[i]='"' then begin
        delete(s,i,1);
        while s[i]<>'"' do
            delete(s,i,1);
        delete(s,i,1);
    end;
end;
writeln(s);
readln;
end.